Option Explicit
Dim objShell
Set objShell = CreateObject("WScript.Shell")
' 以下はエラーになる
objShell.Run "mspaint.exe C:\My Files\org chart.bmp" ―――――（A）
objShell.Run "mspaint.exe "C:\My Files\org chart.bmp"" ―――――（B）
' 以下は問題を解決する最も簡単な方法
objShell.Run "mspaint.exe ""C:\My Files\org chart.bmp""" ―――――（C）
' 以下は面倒なのでお勧めしない
objShell.Run "mspaint.exe " & Chr(34) & _ ―――――（D）
"C:\My Files\org chart.bmp" & Chr(34) ―――――（D）
|
|
CLOSE
