VBA：【FSO】フォルダーのコピー「CopyFolder」(FileSystemObject)
◆フォルダーのコピー
以下を実行すると、Path1フォルダーをPath2フォルダー配下にコピーすることができます。
※FSOを実行するには、VBEの「参照設定」で「Microsoft Scripting Runtime」が有効になっている必要があります。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
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フォルダー配下に移動' FSO.CopyFolder Path1, Path2 & "\" Set FSO = Nothing End Sub |
◆関連記事
VBA：ファイルコピーの違い。FileSystemObjectの「CopyFile」と「FileCopy」ステートメント
【VBA】VBAのコピーの方法のうち、FileSystemObjectの「CopyFile」と「FileCopy」ステートメントの違いについて説明します。
