全硬盘高速查找指定文件

爱疯

转自：http://blog.csdn.net/northwolves/archive/2007/04/10/1558718.aspx

1. Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As String) As Long
   
2. Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
   
3. Function SearchFile(ByVal Filename As String) As String
   
4.     Dim R As Long, i As Long, SearchPath As String
   
5.     For i = 0 To 25
   
6.     SearchPath = Chr$(i + 65) & ":/"
   
7.     If GetDriveType(SearchPath) = 3 Then
   
8.         SearchFile = String$(1024, 0)
   
9.         R = SearchTreeForFile(SearchPath, Filename, SearchFile)
   
10.         If R <> 0 Then SearchFile = Split(SearchFile, Chr(0))(0): Exit Function
    
11.         End If
    
12.     Next
    
13.     SearchFile = "Can't find it is this system"
    
14. End Function
    
15. 
    
16. Sub macro1()
    
17.     Dim F As String
    
18.     F = InputBox("Please input a filename to search", "Infomation", "excel.exe")
    
19.     MsgBox SearchFile(F)
    
20. End Sub  

复制代码

为回答问题在网上搜来的，试下了，真快啊！
真羡慕高手的代码{:011:}

xwei9277

真快啊！

joyark

真快啊！謝謝提供學習下載看看

kanhazi

有点意思，谢谢！

cuirencui

好东西谢谢分享

jxncfxsf

好东西谢谢分享

3dmax456789

谢谢分享！学习了！