• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vb6.0/vba] [vb6.0/vba] 파일검색 SearchTreeForFile API - 모든폴더에서 파일을 검색한다

하나를하더라도최선을
2020.01.13 19:50 831 0

본문



Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As StringByVal InputPathName As StringByVal OutputPathBuffer As StringAs Long
Private Const MAX_PATH = 260
 
Function FilePath(fDV As String, fName As StringAs String
     Dim Buffer As String, Ret As Long
     Buffer = String(MAX_PATH, 0)
     Ret = SearchTreeForFile(fDV, fName, Buffer)
     If Ret <> Then FilePath = LeftB$(Buffer, InStrB(1, Buffer, Chr$(0)))
End Function




사용법 :

MsgBox FilePath("c:\", "mscomctl.dll")



댓글목록 0

등록된 댓글이 없습니다.