ファイル実行時に引数を指定するには (ID:118190)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めての投稿です。宜しくお願い致します。 ファイル名に本日の日付(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}"