I will do this way: Set objFso = CreateObject("Scripting.FileSystemObject") Set Folder = objFSO.GetFolder(".") Set NewFile =...
Separate names with a comma.