VBA能否“穿透"多层文件夹查找并返回指定类型的文件？

libaoshui

首先，非常感谢论坛的帖子帮我解决了部分问题，感谢老朽的耐心回答。原帖为如何提取多个文件下的excel文件名并按顺序排列地址详见http://club.excelhome.net/thread-477259-1-5.html。通过上面这个例子的介绍，我比葫芦画瓢，对代码进行简单修改。用VBA遍历文件夹下的照片（jpg格式）然后把照片名读写在EXCEL文档里，便于后面的工作。（说起来很有成就感，呵呵）
       但是，问题说来就来了。由于工作人员输入不规范，导致照片文件可能存放在多层嵌套文件夹下。比如，有的照片文件在第一层文件夹下面，有的照片文件在第二层文件夹里面（第一层文件夹的子文件夹里面），还有的可能在第五层（文件夹共五层）。而按照上面代码的要求，显然需要录入文件所入最里层的文件夹。
    我的目的是能否改善代码，只需要给出最外层的文件夹（如D:\文件），让VBA代码自动搜索里面的文件夹，如果有下一层的文件夹自动进入搜索查找指定的文件类型返回结果。例如在D:\文件\1\2\3\4\下有一123.jpg文件也能查找并返回到EXCEL表格中（该文件“隐藏”的比较深，文件夹下面嵌套四层）
    不知，VBA能否这么“智能”？也不知问题是否描述清楚。

smhf_6

1、VBA能做到，可以搜索出总文件夹下的所有子文件夹中的文件，
　　filesearch:很好用，但2007后不能用
　　dir
        FileSystemObject

2、有时，我们也不一定非要VBA这么去做，打开总目录，利用windows自身的探索功能，查找文件　*.jpg  ,很快就全部搜索出来了，全部复制，放入另外一个文件夹，不就解决了

jiminyanyan

文件夹弄个这么多层，很累的呀

hanter007

Application.FileSearch.SearchFolders = True
查找子文件夹

HHAAMM

不用文件对象，用递归的办法就可以 搜索论坛 有代码的

libaoshui

感谢楼上几位的热心帮忙！学VBA时间不长，但工作上已经受益匪浅，呵呵！再接再厉！
VBA中的FILESEARCH真是个好东东！帮我减少不小的负担。
在网路上搜到这么一段代码，自动提取出某文件夹下指定条件的文件并填写到EXCEL表格中。
《回复2楼》
遍历文件夹的目的是为了对符合条件的文件进行批量重命名。
而4楼所说的递归，现在还比较深奥，暂时还理解不了，呵呵。

网址：http://hi.baidu.com/lpsh1985/blo ... 6661d6d0006079.html
如何用VBA中的FileSearch返回某目录下的文件列表、文件大小及日期？

*******************返回某目录下的文件列表、文件大小及日期**********************************
Sub FileSearch_example()
Dim Myfile As String
Dim r As Long
Sheet1.Columns("A:Z").ClearContents
Myfile = ThisWorkbook.Path & "\"      ‘这个地方可以替换为需要查找的文件路径
r = 1
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
Cells(r, 3) = "Date/Time"
Range("A1:C1").Font.Bold = True
r = r + 1
With Application.FileSearch
    .NewSearch
    .LookIn = Myfile
    .Filename = "*.*"     ‘把这个地方改为="*.jpg",即可以查找JPG格式的文件（指定筛选）   
    .SearchSubFolders = true    '  把这个地方变为TRUE，即可搜索子文件夹了，呵呵！   
  .Execute
    For i = 1 To .FoundFiles.Count
       Cells(r, 1) = .FoundFiles(i)
       Cells(r, 2) = FileLen(.FoundFiles(i))
       Cells(r, 3) = FileDateTime(.FoundFiles(i))
       r = r + 1
    Next i
End With
End Sub

'*******************end *********************************************************************

[ 本帖最后由 libaoshui 于 2010-12-19 13:49 编辑 ]

530087187

学习了，很有用

susylin

做个标记，回头再来看。文件夹多时像快要死机。

aman1516

经常用到，学习使用了

孤独行星双星记

先留下个记号，回头学习下。