ApacheをVBAのWshellで起動したい

質問

WindowsXPに入れたApacheをコマンドプロンプトで次のようにして必要な時だけ起動しています。
CD C:\Program Files\Apache2412\Apache24\bin
httpd -k start

これをVBAのWshellでやりたいのですが、エラーになってできません
下記どちらでも「Runメソッドは失敗しました」になります

Sub Sample_WShell01()
Dim ShellObj
Set ShellObj = CreateObject("WScript.Shell")
ShellObj.Run "CD C:\Program Files\Apache2412\Apache24\bin", 0, true
ShellObj.Run "httpd -k start", 0, true
End Sub

Sub Sample_WShell01()
Dim ShellObj
Set ShellObj = CreateObject("WScript.Shell")
ShellObj.Run "C:\Program Files\Apache2412\Apache24\bin\httpd -k start", 0, true
End Sub

パスを通しておけば下記でできるのはわかってますが…
Sub Sample_WShell01()
Dim ShellObj
Set ShellObj = CreateObject("WScript.Shell")
ShellObj.Run "httpd -k start", 0, true
End Sub

パスの通ってない状態ではできないのでしょうか、教えてください
書き方だけのような気はしますが…

回答No.1

NotFound404 · ベストアンサー

Path にスペースがあるから『Program Files』でしょうね。
ShellObj.Run "C:\Program Files\Apache2412\Apache24\bin\httpd -k start", 0, true
↓
ShellObj.Run """C:\Program Files\Apache2412\Apache24\bin\httpd "" -k start", 0, true
じゃないかな。
詳しくはこちらの後半から解説がありますので読んでみて。
http://www.atmarkit.co.jp/ait/articles/0709/12/news125.html

お礼

できました、ご指摘の通りでした。
書き方の問題だろうとは思ってました、またスペースがある場合"で囲むのも知ってました。
でもわからなかった書き方が。
大変ありがとうございます。感謝感謝！