Far mostrare l´estensione dell´ultimo file precedentemente aperto: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Nuova pagina: 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 ...) |
Nessun oggetto della modifica |
||
| Riga 15: | Riga 15: | ||
With Dialog | With Dialog | ||
.Filter = [*." & File.Ext(percorso), "File "]) | .Filter = ["*." & File.Ext(percorso), "File "]) | ||
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''' | '''End''' | ||
Versione delle 16:35, 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