[VB6] Sfogliare una cartella, partendo da una predefinita

[marco.santilli]

Originariamente inviato da oregon
Guarda questo esempio completo

http://www.elguille.info/VB/ejemplos/browsefolder.htm

Io non l'ho provato...però dandogli una occhiata mi sembra anche qui che non posso partire da una directory impostata....partono tutti da default e cioè risorse del computer

Sai dirmi niente

Ciao e grazieeeeeee

[oregon]

Dagli un'occhiata migliore ...

[marco.santilli]

Oregon??

Mi serve un aiutino

Con questa sfoglio e attribuisco il percorso ad un avariabile

Dim perc As String
perc = BrowseFolder(Me.hWnd, " la cartella desiderata:")

con questa tronco il percorso per renderlo relativo:

Dim p, p1, p2, p3() As String
p = perc
p2 = Split(p, "\")
p1 = p2(UBound(p2) - 1) & "\" & p2(UBound(p2))


Text7.Text = p1


Praticamente mi restituisce ad esempio "documenti\circolare01"

Poi in fase di apertura mettendo:

Shell "explorer " & Text7.Text & "", vbNormalNoFocus

mi parte dalla root dove ho il programma e mi apre la cartela "documenti\circolare01" che si trova nella principale

Con quella funzione sopra lui mi tronca tutto c'ho che è dietro a due "\"....ok????

Se io creassi una sottocartella, lui non riesce più a riaprirmela, perchè invece di fare

"documenti\circolare01\sottocartella"

mi scrive "circolare01\sottocartella" e quando la riapro logicamente non me la trova, perchè circolare01 non sta nella root principale

C'è un metodo per risolvere il mio problema????

Ciao e grazieeeeee