Q1： Excel如何生成各文件夾目錄，并超鏈接最終文件
Dim arr(), m&
Sub Macro1()
Dim Fso As Object, a, i&, j&, n&, brr()
Application.ScreenUpdating = False
Set Fso = CreateObject('Scripting.FileSystemObject')
p = ThisWorkbook.Path & '\2012-3-1'
sFileType = '*.pdf'
Call GetFiles(p, sFileType, Fso)
ReDim brr(1 To m, 1 To 4)
[a1].CurrentRegion.Offset(1).ClearContents
With ActiveSheet
For i = 1 To m
a = Split(arr(i), '\')
n = 0
For j = UBound(a) - 3 To UBound(a) - 1
n = n + 1
brr(i, n) = a(j)
Next
brr(i, 4) = Replace(a(j), '.pdf', '') '
.Hyperlinks.Add Anchor:=Cells(i + 1, 4), Address:=arr(i)
Next
End With
[a2].Resize(m, 4) = brr
m = 0
Erase arr
Set Fso = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub GetFiles(ByVal sPath$, ByVal sFileType$, Fso As Object)
Dim Folder As Object
Dim SubFolder As Object
Dim File As Object
Set Folder = Fso.GetFolder(sPath)
For Each File In Folder.Files
If File.Name Like sFileType Then
m = m + 1
ReDim Preserve arr(1 To m)
arr(m) = sPath & '\' & File.Name
End If
Next
If Folder.SubFolders.Count > 0 Then
For Each SubFolder In Folder.SubFolders
Call GetFiles(SubFolder.Path, sFileType, Fso)
Next
End If
Set Folder = Nothing
Set File = Nothing
Set SubFolder = Nothing
End Sub
Www.jiZhu@ba.cOmQ2： 如何生成一個文件夾內(nèi)的所有文件的文件列表？
使用DOS命令中的dir就可以生成這樣的文本文件。下面介紹具體操作方法。1.這里假設(shè)文件夾為為D:\123。
2.以Windows XP操作系統(tǒng)為例，單擊“開始|運(yùn)行”，輸入cmd，然后單擊“確定”。
3.在命令提示符窗口中輸入以下命令，dir d:\123 >c:\filelist.txt
這樣就在C:盤根目錄下生成了一個名為“filelist.txt”的文本文件，該文件中即包含文件夾D:\123 里面的所有文件的詳細(xì)列表。
如果希望將D:盤中子目錄中的文件和文件夾列表也全部列出來，可以在命令提示符窗口中輸入以下命令。dir d:\ /s >c:\filelist.txt
如果使用下面的命令，即加一個/b，則會生成一個簡單的文件名列表，不包括其它信息，這種方法可能更加實(shí)用一些。dir d:\ /s /b >c:\filelist.txt
