Identificare un tipo di file dalla sua estensione
Da Gambas-it.org - Wikipedia.
Versione del 16 set 2012 alle 16:46 di Vuott (Discussione | contributi) (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''...)
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