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

解決

pen 2004-12-11 01:15:18 No: 118190

初めての投稿です。宜しくお願い致します。
ファイル名に本日の日付(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-11 03:31:34 No: 118191

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

pen 2004-12-11 03:33:03 No: 118192

解決しました