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

解決


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

解決しました


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加