Visual Basic 6 - Sfoglia per cartelle solo in documenti

ragazzi io ho questo codice:

Dim sMyDir As String 
Const ssfPERSONAL = 5 
On Error Resume Next 
sMyDir = CreateObject("Shell.Application").BrowseForFolder(0, "Messaggio nella finestra", 0, ssfPERSONAL).Self.Path 
If sMyDir <> "" Then MsgBox "Hai selezionato la cartella: " & sMyDir 

però questo mi visualizza lo "sfoglia per cartelle" ma mi fa solo sfogliare le cartelle solo dei documenti, come fare a fare in modo che posso sfogliare tutte le unità e cartelle del PC???
grazie molte

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

ok ora funziona tutto grazie molto umberto!!!
a secondo il tipo di problema che hai??
dimmi...

umberto lo "sfoglia per cartelle" funziona tutto correttamente come volevo io ma però il percorso che seleziono (es. "H:\dati\" lo vorrei visualizzare in una label, ma non me la fa visualizzare, ho provato in diversi modi:
- lbl.caption sMydir
- lbl.caption = sMydir
- sMydir lbl.caption
- sMydir = lbl.caption
ma con alcune di queste mi da errore nn facendomi aprire lo "sfoglia per cartelle" altre invece dopo che seleziono il percorso nn me lo visualizza, come mai??? che sbaglio???
grazie

Ciao, versione corretta :

Dim sMyDir As String
Const ssfPERSONAL = 0

sMyDir = CreateObject("Shell.Application".BrowseForFolder(0, "Messaggio nella finestra", 0, ssfPERSONAL).Self
If sMyDir <> "" Then MsgBox "Hai selezionato la cartella: " & sMyDir
Label1 = sMyDir


è stato semplicemente eliminato il ".Patch"

ora dovrebbe funzionare, io l'ho provato OK OK

Ciao ciao

Si si ora funziona tutto, ma nella label nn mi deve visualizzare in nome della cartella che ho selezionato, ma in percorso.
scusami ma mi sono dimenticato di scriverlo prima...