Visualizza wikitesto di Far mostrare l´estensione dell´ultimo file precedentemente aperto

Poniamo il caso di volere che nel ''ComboBox'': "''Tipo di File''" all'interno della finestra di dialogo ''OpenFile'', o di quella ''SaveFile'', venga scritta l'estensione dell'ultimo file precedentemente aperto, o - nell'altro caso - dell'ultimo file precedentemente salvato.

Potremo utilizzare ad esempio il seguente codice:
 '''Private''' percorso As String
 
 
 '''Public''' Sub Form_Open()
 
  percorso = "*.*"
 
 '''End'''
 
 
 '''Public''' Sub Button1_Click()
 
   With Dialog
     .Filter = [*." & File.Ext(percorso), "File "])
     If OpenFile() Then Return   <FONT color=#006400>' ''oppure ".SaveFile"''</font>
     percorso = .Path
 
 '''End'''