Differenze tra le versioni di "Identificare un tipo di file dalla sua estensione"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Mostreremo un possibile algoritmo per identificare un tipo di file fra molti dalla sua estensione. Nell'esempio seguente si cercherà di individuare un file avente estensione ''.avi''...) |
(Nessuna differenza)
|
Versione delle 16:46, 16 set 2012
Mostreremo un possibile algoritmo per identificare un tipo di file fra molti dalla sua estensione.
Nell'esempio seguente si cercherà di individuare un file avente estensione .avi:
Public Sub Button1_Click() Dim ogniFile As String ' Individua e carica nella variabile-array di tipo stringa ogni file presente nel pecorso: For Each ogniFile In Dir("/percorso_cartella_contenente_i_file/", "*.*") ' Quindi fra tutti quei file viene individuato soltanto il file con estensione .avi: If File.Ext(ogniFile) = "avi" Then ' Viene mostrato il file cercato di tipo .avi: Print ogniFile Endif Next End
Si potrà, ad ogni modo, anche scrivere più brevemente:
Public Sub Button1_Click() Dim ogniFile As String ' Individua e carica nella variabile-array di tipo stringa soltanto i file aventi estensione .avi... For Each ogniFile In Dir("/percorso_cartella_contenente_i_file/", "*.avi") ' ...e vengono mostrati: Print ogniFile Next End