For Each File In Folder.Files works fine as long as the lengths of the file names (incl. path) are within the limit of Windows, which is 259 characters. But if
For Each File In Folder.Files