是否有可能这样的代码获取文件和文件夹？

我目前有这样的代码：

Function GetSubDir(ByVal sDir) Dim oFS As New FileSystemObject Dim oDir iCount = 1 Erase subArray() Set oDir = oFS.GetFolder(sDir) For Each oSub In oDir.SubFolders MsgBox oSubPath GetSubDir oSub.Path ReDim Preserve subArray(iCount) subArray(iCount) = oSub.Path iCount = iCount + 1 Next oSub End Function 

有没有办法修改它，以便它获取文件和文件夹？ 我已经试过看MSDN，但是这对我来说是相当陌生的，它是一个简单的语法变化，或者整个代码需要返工？ 谢谢

Answer 1

我认为这是很有可能的 – 这个示例代码展示了如何循环文件：

 Sub ShowFileList(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & vbCrLf Next MsgBox s End Sub 

只需要添加一个For...Each循环。 但是，如果要recursion处理所有文件和所有子文件夹到最后一个深层次 – 这将需要更多的编码。 不过，Google可能会在几分钟之内显示大量这样的ready-to-go摘录。 祝你好运！