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à usare il metodo .Dir della Classe File, il quale consente di individuare, appunto, il solo percorso di un file escludendone il nome e l'estensione. Tale funzione va utilizzata congiuntamente al metodo .Path della Classe Dialog, che restituisce il percorso, il nome e l'estensione del file prescelto.

Si scriverà dunque quanto segue:

Public Sub Button1_Click()

 Dim s As String

' Apriamo la finestra di dialogo per scegliere e caricare il file:
   If Dialog.Openfile() then Return

' Individuiamo il solo percorso del file:
   s = File.Dir(Dialog.Path)

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

End