[vb6.0/vba] 파일검색 SearchTreeForFile API - 모든폴더에서 파일을 검색한다
하나를하더라도최선을
2020-01-13 19:50:13
33,449
0
0
Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Function FilePath(fDV As String, fName As String) As String
Dim Buffer As String, Ret As Long
Buffer = String(MAX_PATH, 0)
Ret = SearchTreeForFile(fDV, fName, Buffer)
If Ret <> 0 Then FilePath = LeftB$(Buffer, InStrB(1, Buffer, Chr$(0)))
End Function
사용법 :
MsgBox FilePath("c:\", "mscomctl.dll")