Shell command

[astrahhan]

I am running a VB prog in a folder with two-word name (something like "My Folder").
When I use the shell command with App.Path :
Shell(App.Path + "\data\my_exe.exe" I have the problem that
c:\My Folder\data\my_exe.exe can not be executed.

Instead you have to type :
c:\"My Folder"\data\my_exe.exe

How can I solve this problem?

Thanks

[pherweg]

Hello,

Try
Shell("""" & App.Path + "\data\my_exe.exe"""

The result will be
"c:\my folder\data\my_exe.exe"

Bye
Peter

[Andrew_Fryer]

Hello,

I am not sure if this will work....but you could try:


shell ("'" & App.path & "\data\my_exe.exe & "'");




This would encase the whole string in single quotes, hopefully removing the problem. Or I could just be talking rubbish :-)

[Cimperiali]

You canalso use short file name (dos format). Have a look at getshortpathname api
ie:
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim lngRes As Long, strPath As String
'Create a buffer
strPath = String$(165, 0)
'retrieve the short pathname
lngRes = GetShortPathName(strFileName, strPath, 164)
'remove all unnecessary chr$(0)'s
GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
MsgBox GetShortPath("c:\Program Files\")
End Sub


Special thanks to Lothar "the Great" Haensler, Tom Archer, Chris Eastwood, Bruno Paris and all the other wonderful people who made and make Codeguru a great place. Come back soon, you Gurus.

[coolbiz]

This is wierd. I tried this on mine where I have RGB.EXE in App.Path and my App.Path evaluates to E:\Projects\VB\RGB Generator. Calling Shell(App.Path & "\RGB.EXE") works fine for me. Does it have anything to do with OS? I'm using WIN2K so have not tested this with Win9x.

-Cool Bizs