用VBA遍历电脑所有文件夹找出修改时间最近且文件名包含“稿件”这个文件

415903035 · 发表于 2012-5-22 15:59

请求：用filesearch 方法来解决这个问题，我考虑这个问题一个星期了一直没有好的办法，请高手来解决，在此多谢了。

Sub t()

Dim s As FileSearch '定义一个文件搜索对象

Set s = Application.FileSearch

s.LookIn = "c：\" '注意路径，换成你实际的路径

s.Filename = "*.*" '搜索所有文件

s.Execute '执行搜索

Cells.Delete '表格清空

For i = 1 To s.FoundFiles.Count

Cells(i, 1) = s.FoundFiles(i) '每一行第一列填写一个文件名

415903035 · 发表于 2012-5-22 16:00

自己顶一下

415903035 · 发表于 2012-5-22 16:03

这个方法我试一下，我只要一个文件

415903035 · 发表于 2020-5-11 09:58

这个方法我试一下，我只要一个文件

415903035 · 发表于 2020-5-11 10:19

415903035 发表于 2020-5-11 09:58
这个方法我试一下，我只要一个文件

hfghhhfddfhdf

415903035 · 发表于 2024-11-4 13:42

请求：用filesearch 方法来解决这个问题，我考虑这个问题一个星期了一直没有好的办法，请高手来解决，在此多谢了

autohotey · 发表于 2024-11-4 13:49

都12年了你还没解决，还在纠结呢？

ykcbf1100 · 发表于 2024-11-4 14:01

415903035 发表于 2024-11-4 13:42
请求：用filesearch 方法来解决这个问题，我考虑这个问题一个星期了一直没有好的办法，请高手来解决， ...

都12年了，你还没解决，还在纠结呢？
补充一下你的附件，你现在的附件只有主文件，这样不够，你得补充一下你所要遍历的文件夹及文件。否则，写了代码也无法测试。

leolee82 · 发表于 2024-11-4 15:55

都12年了

安装个everything就可以搞定了

转角处的沉思 · 发表于 2024-11-4 21:55

推荐 Windows 文件搜索类神器Everything、Listary、AnyTXT Searcher 、locate、utools、quicker.

		自动登录	找回密码
密码			免费注册

[求助] 用VBA遍历电脑所有文件夹找出修改时间最近且文件名包含“稿件”这个文件