[求助]如何用VBA遍历指定目录下的所有子文件夹和文件

xfliuliu2710

这款工具极大地提高了建立资料目录的效率.使用中感觉到如果对以下两点再进行完善就更好了:
1、目录建立后，本工作簿名称自动改为与A1单元格名称相同，因为保存这个工作簿时要重新命名；
2、建立的目录中，只有各级文件夹显示路径，其下的文件前不显示路径，因为有的文件保存在多级文件夹下，前面显示路径后，名称过长，A4纸横向打印都不够，字体设小了又看不清。
  麻烦zhaogang1960老师在万忙中抽出时间看下能否解决以上两个问题。

sh_cheng

学习了，非常感谢！

yf_992258

请参阅 hank2611 “文档目录管理系统”楼主 的程序
http://club.excelhome.net/viewth ... p;extra=&page=1

我认为很不错，功能和 大灰狼老师 的很相近。

大灰狼老师，能否把 hank2611 楼主 的“文档目录管理系统”程序 稍微改动一下？在选取目录框中记忆前一次的值，意思是二次选取目录打开这个选取框时，不需要重新选取打开--〉计算机---〉XX盘：---〉XX目录....（由于计算机有许多盘符和大量目录）

附件已经添加了

32楼的第一个问题，附件中点“生产目录”按钮结束后会另存到同一路径下，命名为A1
第二个问题没做，因为程序时遍历所选目录下所有的文件包括子目录下的，如果当前查的是d:\我的文档，而d:\我的文档下还有子文件夹“aaa”,aaa下还有文件A，那么现在显示的是d:\我的文档\aaa\A,按你的说法只显示当前目录下的（d:\我的文档），其子目录是不显示，只显示子文件夹名，这跟程序的本意不一致

貌似踩在巨人的肩膀上，一直借老朽的成品在这修修改改的，借老朽的雕的花献给需要的同志们，希望不要介意

xfliuliu2710

非常感谢yf_992258老师!
第二个问题可能是我没说清楚,如"情况统计.XLS"文件存在以下路径:D:\文件夹名称\文件夹名称\情况统计.XLS
建立目录情况显示为::
D:\文件夹名称\文件夹名称
情况统计.XLS
而不是完整显示为
D:\文件夹名称\文件夹名称\情况统计.XLS

[ 本帖最后由 xfliuliu2710 于 2009-9-5 16:35 编辑 ]

ydbrVBA

太强了,学习学习....

短歌行

学习了，谢谢老大

陈谷

下载一个，先谢谢！

da_chengl

Sub Macro1()
'
Dim fs, f, f1, s, sf1, j%
    j = 1
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("F:\book\hf")
    Set sf = f.SubFolders
    Call Macro2(j, f)
End Sub


Sub Macro2(j, sf1)
Dim fs, f, f1, s, sf
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sf1)
    Set sf = f.SubFolders
    If sf.Count <> 0 Then
    For Each f1 In sf
        's = s & f1.Name
        's = s & vbCrLf
        Call Macro2(j, f1)
   
    Call c(f1, j)
        
    Next
    End If
    'MsgBox s
End Sub
Sub c(aa, j)
Dim fs, f1, i%
i = j
'Cells(i, 2) = aa.Name
'i = i + 1

Set fs = CreateObject("Scripting.FileSystemObject")
For Each f1 In fs.GetFolder(aa).Files
Cells(i, 1) = f1.Name
'Cells(i, 2) = aa.Name
Cells(i, 2) = aa.Path
i = i + 1
Next f1
j = i

End Sub

yf_992258

看了楼上的觉得使用动态二维数组然后用转置还是蛮好的

praijna

这个工具非常好用，请问哪位老师能否帮忙再加上个文件大小、时间的属性？