2005-05-21から1日間の記事一覧
question:1116567534への回答用。 Dim str Set WSHShell = Wscript.CreateObject("Wscript.Shell") Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set arg=WScript.Arguments '1.WshArgumentsオブジェクトを取得。 If arg.Count=0 Then '2.…
question:1116567534への回答用。 Dim str Set WSHShell = Wscript.CreateObject("Wscript.Shell") Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set arg=WScript.Arguments '1.WshArgumentsオブジェクトを取得。 If arg.Count=0 Then '2.…