VBA：【FSO】ファイルのコピー「CopyFile」(FileSystemObject)

by chasou_tech · 公開済み 2022年9月23日 · 更新済み 2023年4月6日

フォルダにあるファイルを一括で他のフォルダにコピーしたい。

　フォルダにあるファイルを一括で他のフォルダにコピーする方法の一つに「File System Object(FSO)」を利用する方法があります。ここでは「CopyFileメソッド」を使った方法を説明していきます。

◆ファイルのコピー

　以下を実行すると、Path1フォルダーにあるファイル全てをPath2フォルダーにコピーすることができます。
　「*」(アスタリスク)の後ろに「.txt」や「.xlsx」とすると特定のファイル形式のものだけをコピーできます。
※FSOを実行するには、VBEの「参照設定」で「Microsoft Scripting Runtime」が有効になっている必要があります。

Private Sub FSO_ファイルコピー()
    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.CopyFile Path1 & "\*", Path2
    
    Set FSO = Nothing

End Sub

Private Sub FSO_ファイルコピー()

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.CopyFile Path1 & "\*", Path2

Set FSO = Nothing

End Sub

◆関連記事