نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

تابع زیر با دریافت مسیر جست و جو و نام فایل، به دنبال آن فایل در مسیر تعیین شده می گردد و در صورتی که فایل مورد نظر را یافت، مسیر آن را بر می گرداند:

Function searcher(ByVal path As String, ByVal fileName As String) As String
    Try
        For Each folderName As String In My.Computer.FileSystem.GetDirectories(path)
            If My.Computer.FileSystem.FileExists(folderName + "\" + fileName) Then Return folderName
            searcher(folderName, fileName)
        Next
    Catch
    End Try
    Return "File Not Found."
End Function