File Search [Resolved]

[teamdad]

Looking for a better way to search for a file to see if it exists.

I am currently using this and it works if you put in the exact directory path. I was wondering if there would be a way to get it to search the entire c: hard drive to see if the file exists even if it's in a sub directory of a subdirectory of a directory etc...

Dim Check As Integer, filepath As String
        filepath = "C:\abc.txt"
        Check = Len(Dir$(filepath))
        If Check = 0 Then
            MessageBox.Show("Found it")
        ElseIf Check <> 0 Then
            MessageBox.Show("Nowhere around")
        End If

[pax]

Hi.

This code will return the first file it finds.

Call it like this : MsgBox(Me.Search("D:\","WhatEver.jpg"))

Private Function Search(ByVal Dir As String, ByVal Find As String) As String
        Dim F As IO.FileInfo = New IO.FileInfo(IO.Path.Combine(Dir, Find))
        If F.Exists = True Then
            Return F.FullName
        End If
 
        Dim sFolders() As String = IO.Directory.GetDirectories(Dir)
        Dim S As String =""
        Dim Q As String = ""
 
        For Each S In sFolders
            Q = Me.Search(S, Find)
            If Q <> "" Then
                Exit For
            End If
        Next
 
        Return Q
    End Function