ファイル実行時に引数を指定するには

解決


pen  2004-12-10 16:15:18  No: 118190  IP: [192.*.*.*]

初めての投稿です。宜しくお願い致します。
ファイル名に本日の日付(yyyymmdd形式)を使用した
テキストファイルを作成したいのですが、
引数に変数を指定する方法がうまくいきません。
どなたかご教授願います。

Dim objShell, day
Set objShell = WScript.CreateObject("WScript.Shell")
day = (Left(date,4)) & (Mid(date,6,2)) & (Mid(date,9,2))
Set myExec = objShell.Exec("notepad.exe day")
Do Until objShell.AppActivate(myExec.ProcessID)
WScript.Sleep 1000
Loop
objShell.SendKeys "day"
objShell.AppActivate(myExec.ProcessID)
objShell.SendKeys "%{F4}"
objShell.SendKeys "{ENTER}"

編集 削除
pen  2004-12-10 18:31:34  No: 118191  IP: [192.*.*.*]

Set myExec = objShell.Exec("notepad.exe day")

Set myExec = objShell.Exec("notepad.exe " & day)
これでできました。

編集 削除
pen  2004-12-10 18:33:03  No: 118192  IP: [192.*.*.*]

解決しました

編集 削除