Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


224 / 75384 ←次へ | 前へ→

【80810】フォルダ内のファイル名の変更についてです
質問  チマ  - 19/5/16(木) 6:44 -

引用なし
パスワード
   フォルダ内のファイル名の変更が必要になって次のようなマクロを作成しました

Sub ファイル名変更()
Dim fso As New FileSystemObject
Dim myfile As file
For Each myfile In fso.GetFolder("F:\新しいフォルダー").Files
  If InStr(myfile.Name, "☆☆") <> 0 Then
   fso.MoveFile myfile, myfile.ParentFolder.Path & "\" & Mid(myfile.Name, InStr(myfile.Name, "☆☆") + 2, 8) & "_" & myfile.Name
  End If
Next myfile

End Sub

"F:\新しいフォルダー"の中には
"F:\新しいフォルダー\1234567☆☆1234567891.pdf"
"F:\新しいフォルダー\1234567☆☆12345678912.pdf"
の2つのファイルがありますがマクロの実行結果は

"F:\新しいフォルダー\12345678_12345678_1234567☆☆1234567891.pdf"
"F:\新しいフォルダー\12345678_12345678_1234567☆☆12345678912.pdf"
と書き換わってしまいます。

私はそれぞれ
"F:\新しいフォルダー\12345678_1234567☆☆1234567891.pdf"
"F:\新しいフォルダー\12345678_1234567☆☆12345678912.pdf"
とファイル名を変更したいのですがfor each next で余分にループして思っているファイル名に変更できません。

 いろいろ調べましたがどうしてもわからないので教えてください。
 

56 hits

【80810】フォルダ内のファイル名の変更についてです チマ 19/5/16(木) 6:44 質問[未読]
【80811】Re:フォルダ内のファイル名の変更について... γ 19/5/16(木) 7:35 回答[未読]
【80818】Re:フォルダ内のファイル名の変更について... γ 19/5/16(木) 23:42 発言[未読]
【80829】Re:フォルダ内のファイル名の変更について... γ 19/5/18(土) 8:56 発言[未読]
【80825】Re:フォルダ内のファイル名の変更について... Jaka 19/5/18(土) 1:00 発言[未読]
【80826】一応使ってるVBS Jaka 19/5/18(土) 1:19 発言[未読]
【80827】ああ、↑ファイル名によってはエラーになり... Jaka 19/5/18(土) 1:26 発言[未読]
【80828】板汚し、更にすみません。 Jaka 19/5/18(土) 2:21 発言[未読]

224 / 75384 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free