A problem in <oShell.Run>

[Bitaoo]

Hello friends,

The following is my code. oShell.Run returns an error
<Method 'Run' of object 'IWshShell3' failed', I think
it is because there is a blank in &quot;My Directory&quot; ,
do you know how can I solve it?

sub main()
Dim oShell As Object
Dim nRet As Long

Set oShell = CreateObject(&quot;WSCript.shell&quot
nRet = oShell.Run(&quot;C:\My Directory\RMS.exe&quot;, , False)
Set oShell = Nothing
end sub

Thanks,
--Bita

 

[CajunCenturion]

You might try using the short name for My Documents - mydocu~1
nRet = oShell.Run(&quot;C:\mydocu~1\RMS.exe&quot;, , False) Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein