File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. Listing files with a For Each loop
Sub FileListDemo()
         Dim objFSO As Object
         Dim objFolder As Object
         Dim objFile As Object
         Set objFSO = CreateObject("Scripting.FileSystemObject")
         Set objFolder = objFSO.GetFolder("C:\")
         For Each objFile In objFolder.Files
           Debug.Print objFile.name
         Next objFile
     End Sub