Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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