[VB6]: Funzione Shell e directory separate da spazi

[Last_Winter]

Ciao a tutti, ho cercato sul forum ma non ho trovato nulla dunque mi vedo costretto a chiedere.

devo utilizzare un programmino exe all'interno di un'applicazione VB attraverso l'uso della funzione SHELL:

strCommand = App.path & "\Prog.exe " & App.path + "\" + sFileName + ".bmp " & App.path + "\fngUp " & App.path  + "\" + sFileName + ".bmp "

 ret = Shell(strCommand )

Come potete vedere ci sono ben 3 directory passate come parametro....se queste directory contengono uno spazio chiaramente non funziona nulla.....come risolvo il problema???

Grazie

[xegallo]

usi un comando dos quindi devi usare i nomi dos

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

    Dim lngRes As Long, strPath As String
    strPath = String$(165, 0)
    lngRes = GetShortPathName(strFileName, strPath, 164)
    GetShortPath = Left$(strPath, lngRes)
End Function

[Last_Winter]

Grazie uomo