VBA (Visual Basic for Applications) dilini kullanarak bir dosyanın uzantısına göre arama işlemi yapabilirsiniz. Bu işlem için öncelikle dosya yolunu ve uzantıyı tanımlayıp, bu bilgileri kullanarak dosya arama fonksiyonunu çalıştırmanız gerekmektedir.

Aşağıdaki kod örneğinde "C:\Klasor" dizinindeki ".txt" uzantılı dosyalar aranmaktadır.

Sub DosyaAra()

Dim DosyaYolu As String
Dim DosyaUzanti As String

DosyaYolu = "C:\Klasor\"
DosyaUzanti = "*.txt"

Dosya = Dir(DosyaYolu & DosyaUzanti)

Do While Dosya <> ""
    Debug.Print Dosya
    Dosya = Dir()
Loop

End Sub

Bu kod, "C:\Klasor\" dizinindeki ".txt" uzantılı dosyaları arar ve bu dosyaların adlarını ekranda görüntüler. DosyaYolu değişkeni, aranacak dizinin yolunu belirtir ve DosyaUzanti değişkeni, aranacak dosya adı uzantısını belirtir. Dosya değişkeni, Dir fonksiyonu tarafından bulunan dosya adını tutar. Döngü, bulunan dosya adı FName değişkeninde boş olana kadar devam eder. Debug.Print komutu, bulunan dosya adını ekranda görüntüler.