初めての投稿です。宜しくお願い致します。
ファイル名に本日の日付(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)
これでできました。
解決しました
編集 削除