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   ' oppure ".SaveFile"
    percorso = .Path
  End With

End