フォルダの操作

■フォルダのコピー： CopyFolderメソッド
　├(構文) CopyFolder "もとパス", "コピー先パス" [, overwrite]
　　　　　overwrite
　　　　　　├True：同名のフォルダがあれば上書きコピー
　　　　　　└False：同名のフォルダがあればエラー

　<例>
　　Sub Sample()
　　　　Dim FSO As FileSystemObject
　　　　Dim Adr As String

　　　　'FileSystemObjectオブジェクトを作成
　　　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　　　'コピー対象のフォルダパスを変数に代入
　　　　Adr = ThisWorkbook.Path
　　　　'「Dataフォルダ」を「Sampleフォルダ」にコピーする
　　　　FSO.CopyFolder Adr & "\Data", Adr & "\Sample\"

　　　　' 後始末
　　　　Set fso = Nothing

　　End Sub

■フォルダを移動：MoveFolderメソッド
　├(構文) MoveFolder "もとパス", "移動先パス"

■フォルダを削除：DeleteFolderメソッド
　　・後日