07/03/10 22:22:57
>>532
全行載せます。
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
Set objSF = oShell.SpecialFolders
'oShell.run "cmd /C notepad.exe C:\Documents and Settings\Administrator\デスクトップ\a.txt"
oShell.run "cmd /C notepad.exe " & oShell.ExpandEnvironmentStrings("%HOMEPATH%") & "\デスクトップ\a.txt"
'WScript.Echo objSF.Item("Desktop")
Set oShell = Nothing