VBGamer

Assuming you're keeping an array or something of surfaces, you can use something like this (remember to add a reference to the Scripting runtime): Dim objFS As New FileSystemObject Dim objFile As File Dim objFolder As Folder Set objFolder = objFS.GetFolder("c:\files") For Each objFile In objFolder.Files 'Do whatever Next objFile