Far mostrare l´estensione dell´ultimo file precedentemente aperto

Da Gambas-it.org - Wikipedia.
Versione del 6 mar 2013 alle 15:38 di Vuott (Discussione | contributi)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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