Question

用 excel 制作文件夹下所有内容的目录

我在网上找到了一个宏，可以做出文件夹下所有文件的目录，但是目录中不包含这个文件夹下的子文件夹。我希望做出的目录中包含这个目录中的所有内容，包含文件和文件夹。下边是原来的宏，请问该怎么修改这个宏？

Answer 1

一、所需DOS命令

　　dir [drive:][path] /b > [drive:][path]filename

二、应用实例

1.如下图，在D盘中，有一个名称为“TQIPC”的文件夹，这个文件夹里面，存放了很多的照片。

2.现在，要做的就是，如何让这些照片的名称，自动显示在Excel或记事本里面。

执行菜单操作“开始”→“运行”，弹出运行对话框，在里面输入 CMD 并按“确定”键，这个时候，会打开如下图的MS-DOS窗口。

3.之后，如下图一样，输入DOS命令即可。

4.上述的命令输入好之后，就按下回车键，命令就执行了，以上生成的是XLS文件；如果想生成记事本TXT文件，那么，就输入下图的dos命令即可。

5.就这样，非常简单，文件名的列表文件，就形成了！如下图、

6.通过dos命令的操作，就得到了如上图的两个文件了。

下面打开temp.xls文件看看，如下图。

Answer 2

我是楼主，这是原来的宏：

Sub ml()
On Error Resume Next
zzml = "请选择要制作目录的文件夹"
Set mlzz = CreateObject("shell.Application").BrowseForFolder(0, zzml, &H1)
lj = mlzz.Self.Path
Cells(1, 1) = "序号"
Cells(1, 2) = "文件名称"
Cells(1, 3) = "文件类型"
Dim wj As String
wj = Dir(lj & "\*.*")
Do
Cells(([A65536].End(xlUp).Row + 1), 1) = [A65536].End(xlUp).Row
Cells(([C65536].End(xlUp).Row + 1), 3).FormulaR1C1 = "=MID(RC[-1],FIND(""."",RC[-1])+1,LEN(RC[-1]) - FIND(""."",RC[-1]))"
Cells(([B65536].End(xlUp).Row + 1), 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wj, TextToDisplay:=wj
wj = Dir
Loop Until Len(wj) = 0
Columns("A:C").Select
Columns("A:C").EntireColumn.AutoFit
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Cells(1, 1).Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=lj & "\" & mlzz.Self.Name & "目录.xls"
ActiveWindow.Close
Application.DisplayAlerts = True
Workbooks.Add
End Sub

Answer 3

请问你后来这个问题解决了吗？同问！