Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("c:\tools") For Each f1 In f.Files MsgBox (f1) Next