フォルダをコピーするには FileSystemObject の CopyFolder メソッドを使用します。
Call obj1.CopyFolder( 文字列1, 文字列2 ) Call obj1.CopyFolder( 文字列1, 文字列2, 真偽値1 )
| オブジェクト(obj1) |
FileSystemObject オブジェクト。 CreateObject 関数で生成する。 |
| 戻り値 | なし |
| 引数１(文字列1) |
コピー元のフォルダ名 相対パスまたは絶対パスで指定 ワイルドカードを使用した指定も可能 （例）"*.txt"、"test_*" |
| 引数２(文字列2) |
コピー先のフォルダ名 相対パスまたは絶対パスで指定 |
| 引数３(真偽値1) |
上書きモードを指定 True：同名フォルダがある場合、上書きする False：同名フォルダがある場合、エラーとする 省略した場合、True が指定される True とした場合でも、コピー先に「読み取り専用」が設定されている場合、上書きせずにエラーとなる |
VBScript ではファイルとフォルダは区別されます。
そのためファイルをコピーするには CopyFolder ではなく CopyFile を使用します。
フォルダをコピーせずに移動するには MoveFolder を使用します。
'変数を宣言 Dim str_from Dim str_to str_from = ".\test" str_to = ".\backup\test" Set objFS = CreateObject("Scripting.FileSystemObject") 'フォルダを上書きコピーする Call objFS.CopyFolder(str_from, str_to)
'変数を宣言 Dim str_from Dim str_to str_from = ".\test" str_to = ".\backup\test" Set objFS = CreateObject("Scripting.FileSystemObject") 'フォルダをコピーするが、コピー先のフォルダが '存在する場合は実行時エラーとする Call objFS.CopyFolder(str_from, str_to, False)
'変数を宣言 Dim str_from Dim str_to str_from = ".\test_*" str_to = ".\backup" Set objFS = CreateObject("Scripting.FileSystemObject") '"test_" で始まるフォルダをすべて上書きコピーする Call objFS.CopyFolder(str_from, str_to)