<code><font color=green>' Pfad festlegen</font>
File1.Path = Dir1.Path</code>

<code><font color=green>' Ausgewählte Datei ermitteln</font>
Dim myFile As String
 
If File1.ListIndex < 0 Then
  MsgBox "Keine Datei ausgewählt!"
Else
  myFile = File1.List(File1.ListIndex)
End If</code>