Estrarre il percorso di un file

Per estrarre e conoscere il percorso ove è posto un file, scelto mediante l'apposita finestra di dialogo per l'apertura dei file, si potrà operare come segue:

Public Sub Button1_Click()

 Dim s As String

   If Dialog.Openfile() then Return

   s = File.Dir(Dialog.Path)

   Print "Il percorso del file scelto è: "; s

End