Identificare un tipo di file dalla sua estensione

Da Gambas-it.org - Wikipedia.

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