problema su drivelistbox

[tigre2209]

ho in visual basic 6 una drive, dir, listbox,
dovrei recuperare la path di un file.
ho il problema che quando il file si trova sulla directory c:\
mi da la doppia \\.
ecco il form.

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Dim FileSelezionato As String
FileSelezionato = File1.Path & "\" & File1.FileName
label5.Caption = FileSelezionato
End Sub

[Luciano79]

o controlli che path non contenga già "\" come ultimo carattere,
oppure su FileSelezionato sostituisci tutti i "\\" con "\"