Scripting.FileSystemObject的应用实例，用到如何获取子文件夹列表，如何获取文件夹里的文件列表。
- FileSystemObject的SubFolders方法获取所有子文件夹。
- Folder对象的Files方法获取所有子文件。
1 获取文件夹里的子文件和文件列表
源代码示例：
'#########################################################
' 获取文件夹里的文件列表
Sub FileFolderList()
nPath = "C:\"
Dim iFileSys
Set iFileSys = CreateObject("Scripting.FileSystemObject") '建立一个文件系统对象
Set iFolder = iFileSys.GetFolder(nPath) '获取文件夹nPath的这个文件夹
Set sFolders = iFolder.SubFolders '获取文件夹nPath里的子文件夹
Set sFiles = iFolder.Files '获取文件夹nPath里的子文件
'输出当前文件子文件夹列表
Debug.Print "子文件夹列表："
For Each folder In sFolders
Debug.Print folder.Path
Next
Debug.Print "子文件列表："
'输出当前文件子文件列表
For Each file In sFiles
Debug.Print file.Path
Next
End Sub
2 如何遍历文件夹以及子文件夹里的所有子文件
通过递归的方法遍历所有文件名
源代码示例：
'#########################################################
' 获取文件夹里的文件列表
Sub GetSubFolder(ByVal nPath As String)
Dim iFileSys
Set iFileSys = CreateObject("Scripting.FileSystemObject")
Set iFolder = iFileSys.GetFolder(nPath)
Set sFolder = iFolder.SubFolders
'获取当前文件列表
For Each iFile In iFolder.Files
Debug.Print iFile.Path
Next
'获取子文件夹并递归遍历文件列表
For Each nFolder In sFolder
folderPath = nFolder.Path
GetSubFolder (folderPath)
Next
End Sub
