是否有可能使此代碼獲取文件和文件夾？

Question

我現在有這樣的代碼：

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週期。但是，如果要遞歸處理所有文件和所有子文件夾到最後一個深層次 - 這將需要更多的編碼。然而，大量的這樣的ready-to-go片段可能會在幾分鐘內使用Google展示。祝你好運！