[VBA] Shell e spazi

[longline]

Ho un problema usando il comando Shell: praticamente con questo comando devo lanciare un programma per la visualizzazione di immagini e, nella riga di comando, devo mettere anche una stringa che rappresenta il nome del file, ad esempio

C:\Documents And Settings\Utente\Documenti\Immagini\Foto.jpg

Il problema sta nel fatto che nel percorso possono esseci degli spazi (come nell'esempio) ed alcuni programmi di gestione immagini non lo gradiscono (non aprono il file dicendo che non possono aprire il file 'C:\Document')

Si può ovviare al problema?

Grazie.

[xegallo]

per ovviare al tuo problema usa i nomi dei file 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
    Dim strPath As String
    
    strPath = Space$(255)
    lngRes = GetShortPathName(strFileName, strPath, 255)

    GetShortPath = trim$(strPath)
End Function

[longline]

La "Private Declare Function" dove la metto su Access?

La funzione pubblica l'ho messa in un modulo ma l'altra? Mi restituisce sempre un errore di complilazione.

[xegallo]

nella sezione dichiazazioni del modulo

[longline]

Già, che fagiano che sono sto facendo 3 cose contemporaneamente...
Ok, fatto il test, tutto funziona.
Grazie mille!!