- 533 名前：532 mailto:(´･ω･`)ｼｮﾎﾞｰﾝ [2007/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
