Loop Through All Subfolders Using VBA [duplicate]

by

Just a simple folder drill down. 

sub sample()
    Dim FileSystem As Object
    Dim HostFolder As String

    HostFolder = "C:\"

    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    DoFolder FileSystem.GetFolder(HostFolder)
end  sub

Sub DoFolder(Folder)
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        ' Operate on each file
    Next
End Sub

More Related Contents:

  1. reading and writing a csv file using FileSystemObject
  2. to make this code simpler
  3. VBA code takes long time to execute in excel
  4. How do I trigger a macro to run after a new mail is received in Outlook?
  5. Is there a need to set Objects to Nothing
  6. VBA – destroy a modeless UserForm instance properly
  7. How To Speed Up VBA Code
  8. “Unable to get the VLookup property of the WorksheetFunction Class” error [duplicate]
  9. Copy data from another Workbook through VBA
  10. Excel VBA Load worksheet in Function
  11. Integer Vs Long Confusion
  12. VBA Shell and Wait with Exit Code
  13. Insert line break in wrapped cell via code
  14. Change color of certain characters in a cell
  15. How to insert text into Outlook email editor using VBA
  16. Want VBA in excel to read very large CSV and create output file of a small subset of the CSV
  17. Using visual basic to access subfolder in Inbox?
  18. VBA Macro crashes after 32000 rows
  19. Determine real cause of ODBC failure (error 3146) with ms-access?
  20. How to break a long string into multiple lines
  21. How to comment and uncomment blocks of code in the Office VBA Editor
  22. Read VBA macros (or vbaProject.bin) of an Excel file without opening it in MS Excel [closed]
  23. simple vba code gives me run time error 91 object variable or with block not set
  24. finding latest file in a folder and opening it (vba access)
  25. VBA hash string
  26. Debugging an Outlook 2007 script fired by a rule
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment