VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net

[472 デフォルトの名無しさん 2015/07/13(月) 22:30:46.86 ID:T1+CoqDj]

ごめんなさい。
一応動く物を…

Option Explicit

'移動先フォルダ
Const cMoveTo = "d:\backup"

Dim objShell
Dim objFileSys
Dim strMoveFrom
Dim strMoveTo
Dim strMsg

Set objShell = CreateObject("WScript.Shell")
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'引数が指定されていない場合は終了
If WScript.Arguments.Count = 0 Then WScript.Quit