• Home
 · 
• Files/File Controls/Input/Output
 · 
• A Find File Procedure No Looping

A Find File Procedure No Looping

This procedure finds a file and returns the full path, provided a partial path it will search all sub dirs. No looping only 1 API - this is the kind.
I can't really take credit for putting an api to use, just sharing something that you might find useful.

Inputs
sFile: File name to find. sRootPath: Path to begin the search in

Assumes
I know of two limitations: 1. The api has a maximum path depth of 32 directories (this is documented). If a directory that the current user does not have access rights to resides in the directory that the search starts in the api call will fail without warning (this is NOT documented).

Returns
Returns the full file path if found otherwise returns null string

API Declarations
Declare Function SearchTreeForFile Lib "IMAGEHLP.DLL" (ByVal lpRootPath As String, ByVal lpInputName As String, ByVal lpOutputName As String) As Long

Rate A Find File Procedure No Looping

• 1
• 2
• 3
• 4
• 5

(10(10 Vote))

Private Function FindFile(sFile As String, sRootPath As String) As String
 ' Search for the file specified and return the full path if found
 Dim sPathBuffer As String
 Dim iEnd As Integer
 
 'Allocate some buffer space (you may need more)
 sPathBuffer = Space(512)
 
 If SearchTreeForFile(sRootPath, sFile, sPathBuffer) Then
  'Strip off the null string that will be returned following the path name
  iEnd = InStr(1, sPathBuffer, vbNullChar, vbTextCompare)
  sPathBuffer = Left$(sPathBuffer, iEnd - 1)
  FindFile = sPathBuffer
 Else
  FindFile = vbNullString
 End If
End Function