VBA：【FSO】ファイルの移動「MoveFile」(FileSystemObject)
◆ファイルの移動
以下を実行すると、Path1フォルダーにあるファイル全てをPath2フォルダーに移動することができます。
「*」(アスタリスク)の後ろに「.txt」や「.xlsx」とすると特定のファイル形式のものだけを移動できます。
※FSOを実行するには、VBEの「参照設定」で「Microsoft Scripting Runtime」が有効になっている必要があります。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Private Sub FSO_ファイル移動_Click() Dim FSO As Object Dim Path1 As String Dim Path2 As String Set FSO = CreateObject("Scripting.FileSystemObject") Path1 = "C:\Users\VBA\FSO\元フォルダー" Path2 = "C:\Users\VBA\FSO\移動先フォルダー" 'Path1フォルダーから、Path2フォルダーへファイルを移動' '「*」(アスタリスク)でフォルダーにあるファイル全てになる。' '「*.txtでフォルダーにあるテキスト形式ファイル全てになる。' FSO.MoveFile Path1 & "\*", Path2 Set FSO = Nothing End Sub |
