查看: 6539|回复: 30
历遍筛选文件夹及其子文件夹下所有文件
阅读权限95
在线时间 小时
本帖已被收录到知识树中，索引项：
也做一个历遍筛选文件夹及其子文件夹下所有文件：
(12.22 KB, 下载次数: 929)
17:40 上传
点击文件名下载附件
阅读权限30
在线时间 小时
看看高手的作品！
阅读权限95
在线时间 小时
看看高手的作品
阅读权限50
在线时间 小时
收藏,速度应该很快.
阅读权限50
在线时间 小时
本帖最后由 doryan 于
19:58 编辑
Dim Dic As New Dictionary
Dim Fso As New FileSystemObject
Public Sub Ipbox()
Traversal InputBox(&请输入路径&, , ThisWorkbook.Path)
End Sub
Function Traversal(Path As String) As Dictionary
Set Fd = Fso.GetFolder(Path)
For Each Fl In Fd.Files
Dic.Add Fl.Path, &&
Next
For Each SubFd In Fd.SubFolders
Traversal (SubFd.Path)
Next
End Function复制代码也分享个 筛选没加 递归方法
阅读权限100
在线时间 小时
留存，支持一下& && && &
阅读权限50
在线时间 小时
楼主的文件打开后怎么是空白的？
阅读权限100
在线时间 小时
slywtj123 发表于
楼主的文件打开后怎么是空白的？
里面有代码
阅读权限95
在线时间 小时
doryan 发表于
也分享个 筛选没加 递归方法
的确，用递归更简洁，不用字典更好：Dim a(), Fso As New FileSystemObject
Public Sub Ipbox()
ReDim a(999)
Zdir InputBox(&请输入路径:&, , ThisWorkbook.Path), i
ReDim Preserve a(i - 1)
MsgBox Join(a, vbNewLine)
End Sub
Sub Zdir(P, i)
For Each F In Fso.GetFolder(P).Files
&&a(i) = F
&&i = i + 1
Next
For Each s In Fso.GetFolder(P).SubFolders
&&Zdir s, i
Next
End Sub
复制代码
阅读权限50
在线时间 小时
Zamyi 发表于
的确，用递归更简洁，不用字典更好：
嘿嘿 反正路径不会重复 不会出错的
而且 FileSystemObject和Dictionary 都在一个dll中 顺手 顺手
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何筛选出文件夹里面的相同文档呢_百度知道
如何筛选出文件夹里面的相同文档呢
里面是文档，里面放着很多小的文件夹我建立了一个大的文件夹。其中有重复的，在不同的文件夹里面
搜索范围在大文件夹内，比如删除，最后将搜索的结果全选操作用搜索功能
其他类似问题
为您推荐：
文件夹的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁新手园地& & & 硬件问题Linux系统管理Linux网络问题Linux环境编程Linux桌面系统国产LinuxBSD& & & BSD文档中心AIX& & & 新手入门& & & AIX文档中心& & & 资源下载& & & Power高级应用& & & IBM存储AS400Solaris& & & Solaris文档中心HP-UX& & & HP文档中心SCO UNIX& & & SCO文档中心互操作专区IRIXTru64 UNIXMac OS X门户网站运维集群和高可用服务器应用监控和防护虚拟化技术架构设计行业应用和管理服务器及硬件技术& & & 服务器资源下载云计算& & & 云计算文档中心& & & 云计算业界& & & 云计算资源下载存储备份& & & 存储文档中心& & & 存储业界& & & 存储资源下载& & & Symantec技术交流区安全技术网络技术& & & 网络技术文档中心C/C++& & & GUI编程& & & Functional编程内核源码& & & 内核问题移动开发& & & 移动开发技术资料ShellPerlJava& & & Java文档中心PHP& & & php文档中心Python& & & Python文档中心RubyCPU与编译器嵌入式开发驱动开发Web开发VoIP开发技术MySQL& & & MySQL文档中心SybaseOraclePostgreSQLDB2Informix数据仓库与数据挖掘NoSQL技术IT业界新闻与评论IT职业生涯& & & 猎头招聘IT图书与评论& & & CU技术图书大系& & & Linux书友会二手交易下载共享Linux文档专区IT培训与认证& & & 培训交流& & & 认证培训清茶斋投资理财运动地带快乐数码摄影& & & 摄影器材& & & 摄影比赛专区IT爱车族旅游天下站务交流版主会议室博客SNS站务交流区CU活动专区& & & Power活动专区& & & 拍卖交流区频道交流区
UID空间积分0 积分208阅读权限20帖子精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
稍有积蓄, 积分 208, 距离下一级还需 292 积分
帖子主题精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
论坛徽章:0
有两个文件夹，test111和test000，如何判断两个文件夹内都有的文件并打印出来。谢谢
&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp
UID空间积分0 积分1249阅读权限30帖子精华可用积分1249 信誉积分774 专家积分0 在线时间610 小时注册时间最后登录
家境小康, 积分 1249, 距离下一级还需 751 积分
帖子主题精华可用积分1249 信誉积分774 专家积分0 在线时间610 小时注册时间最后登录
论坛徽章:0
本帖最后由 personball 于
17:03 编辑
learningpython
& &只根据文件名处理？
只根据文件名处理personball@vostro:SHELL$ls dir1 dir2 |sed '/:/d'|awk '{a[$0]++}END{for(i in a){if(a[i]&1)}}'复制代码
《黑客与画家》
UID空间积分0 积分208阅读权限20帖子精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
稍有积蓄, 积分 208, 距离下一级还需 292 积分
帖子主题精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
论坛徽章:0
personball
& & 是的，就是根据两个文件夹内的所有文件的文件名，名字相同就输出名字就行
Go free, go shell.
UID28783空间积分0 积分31778阅读权限100帖子精华可用积分31778 信誉积分2664 专家积分10 在线时间3006 小时注册时间最后登录
帖子主题精华可用积分31778 信誉积分2664 专家积分10 在线时间3006 小时注册时间最后登录
论坛徽章:15
diff folderA folderB复制代码
shell 版主
UID空间积分0 积分208阅读权限20帖子精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
稍有积蓄, 积分 208, 距离下一级还需 292 积分
帖子主题精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
论坛徽章:0
personball
我的思维不太好，麻烦您能把逻辑分开写吗
UID空间积分0 积分208阅读权限20帖子精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
稍有积蓄, 积分 208, 距离下一级还需 292 积分
帖子主题精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
论坛徽章:0
& & 不好意思，我还要输出给变量呢，不是diff解决的这种
UID空间积分0 积分17阅读权限10帖子精华可用积分17 信誉积分1128 专家积分0 在线时间2266 小时注册时间最后登录
白手起家, 积分 17, 距离下一级还需 183 积分
帖子主题精华可用积分17 信誉积分1128 专家积分0 在线时间2266 小时注册时间最后登录
论坛徽章:0
[netslyz@noopoo ~]$ ls test000
111&&222&&333&&444&&555
[netslyz@noopoo ~]$ ls test111
444&&555&&666&&777
[netslyz@noopoo ~]$ ls test000 test111 |awk 'a[$0]++'
444
555复制代码回复
learningpython
UID空间积分0 积分1249阅读权限30帖子精华可用积分1249 信誉积分774 专家积分0 在线时间610 小时注册时间最后登录
家境小康, 积分 1249, 距离下一级还需 751 积分
帖子主题精华可用积分1249 信誉积分774 专家积分0 在线时间610 小时注册时间最后登录
论坛徽章:0
本帖最后由 personball 于
17:25 编辑
learningpython
& & ls dir1 dir2&&#ls 显示2个目录的内容personball@vostro:SHELL$ls tmp sed
sed:
cfile&&file&&test&&testecho.sh&&test_e.sh
tmp:
create_tmp.sh&&del_tmp_exName.sh&&file1.zip&&file2.zip复制代码|
sed '/:/d'& && && & #删除含冒号的行personball@vostro:SHELL$ls tmp sed|sed '/:/d'
cfile
file
test
testecho.sh
test_e.sh
create_tmp.sh
del_tmp_exName.sh
file1.zip
file2.zip复制代码|
awk '{a[$0]++}END{for(i in a){if(a&1)}}'&&#awk 统计相同行出现的次数，输出次数大于1的，因为一个文件夹下不可能有两个同名的
《黑客与画家》
UID空间积分0 积分1249阅读权限30帖子精华可用积分1249 信誉积分774 专家积分0 在线时间610 小时注册时间最后登录
家境小康, 积分 1249, 距离下一级还需 751 积分
帖子主题精华可用积分1249 信誉积分774 专家积分0 在线时间610 小时注册时间最后登录
论坛徽章:0
其实目录名那行不删也没关系，只要不是同名目录。。。
《黑客与画家》
UID空间积分0 积分208阅读权限20帖子精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
稍有积蓄, 积分 208, 距离下一级还需 292 积分
帖子主题精华可用积分210 信誉积分88 专家积分0 在线时间71 小时注册时间最后登录
论坛徽章:0
本帖最后由 learningpython 于
17:59 编辑
personball
谢谢，多谢，没问题了。怎么把多个文件夹里的东西移到一个文件夹里？_百度知道
怎么把多个文件夹里的东西移到一个文件夹里？
提问者采纳
有必要的先把同盘的所有需要的文件连同文件夹放在一个文件夹里，就输入*如果让我操作，只是去文件夹，我会选择用“搜索”.*就可以了
3、然后设置好相同的的文件类型或时间进行筛选，如果所有文件都在、先把所有的文件夹所在的搜索位置定位好，然后局部筛选 例如 1，
2、最后通过文件类型和文件夹分开
我用的win7系统，搜索不到
提问者评价
其他类似问题
为您推荐：
其他3条回答
　　　　把多个文件夹里的东西移到一个文件夹里的方法是：
　　1、快速方法：左键点击想要移动到的总文件夹，敲击CTRL+F键盘,然后在搜索框里键入要移动的文件夹里的文件格式，搜索完成后，全选复制，粘贴到要放的文件夹。
　　2、一般方法：新建一个文件夹，用CTRL+A选中全部文件夹，选中剪切，切换至新文件夹里，点击CTRl+V粘贴所有文件即可。
　　3、普通方法：用鼠标点击第一个文件，然后按住Shift键，在用鼠标点击最后一个文件，这时所选文件将变成深色，这时松开按键的手，右击深色的文件选复制，在找到文件夹，右键选粘贴即可。
　　文件夹：
　　文件夹是专门装整页文件用的，主要目的是为了更好的保存文件，使它整齐规范。普通计算机文件夹是用来协助人们管理计算机文件的，每一个文件夹对应一...
ctrl+a ctrl+x ctrl+v
不是那种移动，是把多个文件夹里的东西提取出来放到一个文件夹里
没有那种方法
如果在不同的盘和不同的位置，ctrl+a全选，ctrl+x剪切，ctrl+v粘贴
文件夹的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁win7系统库功能小技巧____分类筛选_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
win7系统库功能小技巧____分类筛选
上传于||文档简介
&&w​i​n系​统​库​功​能​小​技​巧​_​_​_​_​分​类​筛​选
大小：2.29KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢