查看: 37  |  回复: 0
  VB6 代码管家-快速查找文件
楼主
发表于 2024年12月8日 21:54
Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Function SearchFile(ByVal Filename As String) As String
    Dim R As Long, i As Long, SearchPath As String
    For i = 0 To 25
        SearchPath = Chr$(i + 65) & ":\"
        If GetDriveType(SearchPath) = 3 Then
            SearchFile = String$(1024, 0)
            R = SearchTreeForFile(SearchPath, Filename, SearchFile)
            If R <> 0 Then SearchFile = Split(SearchFile, Chr(0))(0): Exit Function
        End If
    Next
    SearchFile = "没有找到匹配项!"
End Function

Private Sub Command1_Click() '查找
    Text2 = SearchFile(Text1) 'Text1为精确的文件名(包括文件的扩展名),text2为结果
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com