全硬盘高速查找指定文件
来源:互联网 发布:php私有属性赋值 编辑:程序博客网 时间:2024/05/01 04:51
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
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
- 全硬盘高速查找指定文件
- VB查找硬盘文件(全硬搜索)
- 扫描硬盘指定文件
- 查找指定硬盘中且指定后缀的文件简单实现
- 遍历查找指定文件
- linux 查找指定文件
- 查找指定文件-Java
- 查找指定目录下的.exe文件 并且将.exe文件按全路径保存
- linux 指定文件类型 全目录查找
- MYSQL全库查找指定字符串
- MYSQL全库查找指定字符串
- 查找并删除指定文件
- python中查找指定文件
- find 查找指定时间文件
- 对硬盘文件进行二分查找
- Python:查找硬盘上重复文件
- linux文件查找指定时间段的文件
- vc查找指定目录下的文件:
- ASP网络安全
- 全面理解javascript的caller,callee,call,apply概念
- ORACLE数据库菜鸟问题
- mc/dc实现方法
- asp连接数据库的方法(全)
- 全硬盘高速查找指定文件
- WIN2003下Web服务器配置(实现WAP应用)
- ASP 编程中20个非常有用的例子
- ASP编程常用的代码推荐
- ASP动态网页编程的19个基本技巧
- 英语面试〔转〕
- General Page Life-cycle Stages
- 实例演练ASP+XML编程
- Windows2003下DNS架设攻略(图)