Visual Basic programlama dilinde uzantıya göre dosya arama örneği aşağıda verilmiştir..

Imports System.IO

Module DosyaAra
    Sub Main()
        Console.WriteLine("Lütfen Dizin Yolunu Girin: ")
        Dim directoryPath As String = Console.ReadLine()
        Console.WriteLine("Lütfen Dosya Uzantısı Girin (örneğin *.txt): ")
        Dim searchPattern As String = Console.ReadLine()

        Try
            Dim files() As String = Directory.GetFiles(directoryPath, searchPattern)
            Console.WriteLine("Bu Kadar Dosya Bulundu: " & files.Length)
            For Each file As String In files
                Console.WriteLine(file)
            Next
        Catch ex As DirectoryNotFoundException
            Console.WriteLine("Dizin Bulunamadı - " & ex.Message)
        Catch ex As Exception
            Console.WriteLine("Hata Alındı: " & ex.Message)
        End Try

        Console.ReadLine()
    End Sub
End Module

Bu örnekte, kullanıcıdan aranacak dizin yolu ve arama şablonu (örneğin *.txt) alınır. Daha sonra, "Directory.GetFiles" metodu ile belirtilen dizin yolunda belirtilen arama şablonuna uyan dosyalar bulunur. Bulunan dosyalar, dizi olarak saklanır ve ekrana yazdırılır.

Eğer belirtilen dizin bulunamazsa, "DirectoryNotFoundException" oluşur ve bu durumda uygun bir hata mesajı yazdırılır. Diğer bir hata durumunda ise genel bir hata mesajı yazdırılır.