Fドライブのフォルダ「AAA」の中のファイル「Ａ－」から始めるファイルをフォルダ「AAA」の中のフォルダ「BBB」に移動する
「F:\AAA\a-*.txt」を「F:\AAA\BBB」に移動する
以下は、指定されたフォルダ内の「A-」で始まるファイルを別のフォルダに移動するためのExcel VBAコードです。
Sub MoveFilesAAA()
Dim sourceFolder As String
Dim destinationFolder As String
Dim file As String
‘ フォルダのパスを設定
sourceFolder = “F:\AAA\”
destinationFolder = sourceFolder & “BBB\”
‘ AAAフォルダ内のA-で始まるファイルを移動
file = Dir(sourceFolder & “A-*”)
Do While file <> “”
Name sourceFolder & file As destinationFolder & file
file = Dir
Loop
End Sub
使用方法
Excelを開き、Alt + F11キーを押してVBAエディタを開きます。
挿入 -> 標準モジュールを選択し、新しいモジュールを作成します。
上記のコードをモジュールに貼り付けます。
F5キーを押すか、実行メニューからSub/Functionの実行を選択してコードを実行します。
コードの説明
sourceFolderには、元のファイルがある「AAA」フォルダのパスを指定します。
destinationFolderには、ファイルを移動させたい「BBB」フォルダのパスを指定します。
Dir関数を使って「A-」で始まるファイルを順番に検索し、Nameステートメントでそれらを「BBB」フォルダに移動します。
これにより、「AAA」フォルダ内の「A-」で始まるファイルが「BBB」フォルダに移動されます。
スポンサーリンク
コメント