全硬盘高速查找指定文件

最新推荐文章于 2018-10-08 14:57:00 发布

northwolves

最新推荐文章于 2018-10-08 14:57:00 发布

阅读量3.7k

点赞数 1

分类专栏： VBA 其他技巧 API 文章标签： string function search system input

本文链接：https://blog.csdn.net/northwolves/article/details/1558718

版权

VBA 同时被 3 个专栏收录

82 篇文章 0 订阅

订阅专栏

其他技巧

32 篇文章 0 订阅

订阅专栏

API

17 篇文章 0 订阅

订阅专栏

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 = "Can't find it is this system"
End Function

Sub macro1()
Dim F As String
F = InputBox("Please input a filename to search", "Infomation", "excel.exe")
MsgBox SearchFile(F)
End Sub