Identificare un tipo di file dalla sua estensione

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