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