Dim Test As String

Private Sub File1_Click()
Test = File1.Path + "\" + File1.FileName
End Sub

det här funkar hur bra som helst bara man inte väljer en fil i t.ex c: för då blir det dubbla //Jesper

Vad är det du frågar om? Vill du ha bort den extra \ ?
Gör så här i så fall:

If Right$(File1.Path, 1) = "\" Then
Test = File1.Path + File1.FileName
Else
Test = File1.Path + "\" + File1.FileName
End If

Ja jag va kanske lite otydlig men du gissa rätt. Tack för hjälpen
//Jesper