すれ立てるまでもない質問はここで第81刷

すれ立てるまでもない質問はここで第81刷 at TECH

533:532
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

次ページ

続きを表示

1を表示