如何实现自动遍历所有磁盘，并全盘搜索指定文件或文件夹？【批处理吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：9,882贴子：
如何实现自动遍历所有磁盘，并全盘搜索指定文件或文件夹？收藏
我想知道如何实现自动遍历所有磁盘，全盘搜索指定文件夹和文件。我已经知道：for&/r&f:\&%%i&in&(zong.dbf)&do&if&exist&%%i&echo&%%i，在F盘全盘搜索zong.dbf文件；for&/r&f:\&%%i&in&(jmtsg$)&do&if&exist&%%i&echo&%%i，在F盘全盘搜索jmtsg$文件夹。现在我想做到由程序自动把参数f:\替换成其它盘符，从而实现遍历驱动器，对所有盘实现全盘搜索。
请大家指教，最好能说明代码的含义，谢谢！
登录百度帐号没有更多推荐了，
加入CSDN，享受更精准的内容推荐，与500万程序员共同成长！不用第三方软件！1秒找出硬盘中的大文件
　　系统使用时间一长，就会在硬盘产生各种垃圾文件。这些垃圾文件堆积在一起，不仅会让系统变慢，还会一点点地蚕食掉宝贵的磁盘空间。一般来说查找大文件，我们首先会想到各种第三方软件。其实利用Windows的一项功能，我们完全可以在不借助任何第三方软件的情况下瞬间搞定大文件，下面就让小编给大家演示一理吧！　　1.首先打开&我的电脑&，点击右上角搜索栏，这时在它的下拉菜单中应该能够看到一个&大小&按钮；图01　　2.点击&大小&，并在弹出的尺寸面板中选择&巨大（&128MB）&；图02　　3.这时计算机将开始搜索硬盘中所有体积大于128MB的文件，并将它们全部列示如下；图03　　4.仔细检查这些文件，如果确实没有用处，直接右键就能把它们删除。当然考虑到该操作的危险性，这里一般不建议使用Ctrl+A全选，多选或是单个删除还是更妥当的。图04　　如果你觉得128MB的范围太窄，或者搜索出来的文件实在太多，也可以适当放开一些条件。比如重新选择数值更小的筛选尺寸，或者直接打开某一盘符筛选，这时Windows将只搜索当前盘符下的文件，能够更有目的性地进行处理！
最新资讯离线随时看
聊天吐槽赢奖品
相关软件：
大小：18.8M
授权：共享
大小：13.5M
授权：免费查看: 3175|回复: 3
全盘查找文件，如何找到所有同名的文件（已解决）
阅读权限30
在线时间 小时
本帖最后由 青见 于
21:44 编辑
我找到一个想要全盘查找文件的代码如下：
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 = 1 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
& & SearchFile = &没有查找到需要的文件&
End Function
Private Sub CommandButton1_Click()
& & F = &RzNSR9x.mdb& '要查找的文件名
& &Cells(2, 1) = SearchFile(F)
只能查到一个文件就结束了，其实其他位置还有这个文件，我想能查找到所有同名文件并写入表格A列
请高手帮忙修改一下，万分感谢！
阅读权限30
在线时间 小时
请高手帮忙修改一下，万分感谢！
阅读权限30
在线时间 小时
经测试这个代码能基本达到目的
Private Sub CommandButton1_Click()
With Application.FileSearch
For N = 1 To 6
k = Range(&A65536&).End(xlUp).Row
& && &&&.NewSearch
& && &&&.LookIn = Chr$(N + 65) & &:&
& && &&&.SearchSubFolders = True
& && &&&.Filename = &clz.mdb&
& && &&&.FileType = msoFileTypeAllFiles
& && &&&If .Execute() & 0 Then
& && && &&&For i = 1 To .FoundFiles.Count
& && && && && & Cells(i + k, 1) = .FoundFiles(i)
& && && && &Next i
& && && &&&End If
& && &&&Next
& & End With
阅读权限50
在线时间 小时
全盘查找文件，如何找到所有同名的文件，怎样设要保存的同名文件呢？
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}