Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFolder = objfso.GetFolder("e:\aaa") For Each objFile In objFolder.Files &n...