vb6.0/vba [vb6.0/vba] 파일검색 SearchTreeForFile API - 모든폴더에서 파일을 검색한다
페이지 정보
본문
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")
- 이전글[vba] Bar Code Ctrl 를 이용한 QR CODE 사용하기 20.01.13
- 다음글[vb6.0/vba] 인터넷(서버) 접속시 쿠키를 이용한 서버 시간을 확인하는 함수 20.01.08
댓글목록
등록된 댓글이 없습니다.