Far mostrare l´estensione dell´ultimo file precedentemente aperto: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 18: | Riga 18: | ||
If OpenFile() Then Return <FONT color=#006400>' ''oppure ".SaveFile"''</font> | If OpenFile() Then Return <FONT color=#006400>' ''oppure ".SaveFile"''</font> | ||
percorso = .Path | percorso = .Path | ||
End With | |||
'''End''' | '''End''' | ||
Versione delle 16:38, 6 mar 2013
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