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

解決

---

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

編集 削除

---

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

編集 削除

---

解決しました

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。