[VB6] Salvare percorso di una cartella

[OrcaAssassina]

Fino adesso ho sempre salvato il percorso dei file, usando questa sintassi

Private Sub Command1_Click()
Dialog.InitDir = App.Path + "\Documenti"
Dialog.DialogTitle = "Sfoglia..."
Dialog.ShowOpen

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

Text8.Text = p1

End Sub


Facendo cosi, con la prima parte leggevo il percorso assoluto, poi in P1 avevo il percorso relativo che poi salvavo nel DB

Ora non devo salvare il nome del file, ma devo salvare proprio la cartella

Come faccio a salvare la cartella???? In pratica quando premo sul pulsante sfoglia, devo selezionare una cartella e poi con OK riportare il suo percorso....poi in seguito toglierò il percorso assoluto per trasformarlo in relativo

Come devo fare????

Ciao e grazieeeeeeee