Ciao , prova così :
Dim sMyDir As String
Const ssfPERSONAL = 0
On Error Resume Next
sMyDir = CreateObject("Shell.Application").BrowseForFolder(0, "Messaggio nella finestra", 0, ssfPERSONAL).Self.patch
If sMyDir <> "" Then MsgBox "Hai selezionato la cartella: " & sMyDir
**la differenza è SSfpersonal=0 ****
anch'io ho un problema, mi puoi aiutare?
Ciao
|