ファイルコピーVBS

質問

ファイルコピーVBS

ファイルをコピーするVBScriptの書き方を教えてください。
コピー対象ファイルはEドライブのDataフォルダに入っています。
コピー対象ファイルは拡張子がdocかつファイルサイズが1MB以上のファイルだけです
コピー先はHドライブのDataフォルダ直下です。
毎週日曜日の午前２時にWindowsのタスク機能等で実行する予定です。
WindowsServer2003R2StandardEditionで実行します。
その他必要な情報があれば言って下さい。
よろしくお願いします。

回答No.1

DOUGLAS_ · ベストアンサー

「WindowsServer2003R2StandardEdition」のことは全然解りませんが、ローカル コンピュータ 上では、こんなので動きました。

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder("E:\Data\")
For Each objFile In objFolder.Files
If Int(objFile.Size / 1024 ^ 2) > 1 And objFso.GetExtensionName(objFile.Path) = "doc" Then
objFile.Copy ("H:\Data\")
End If
Next
WScript.Echo "Copy done"