I have following macros:
Code
Dim SourceFile, DestinationFile, SourceFileExt
SourceFile = Application.GetOpenFilename("Acrobat Files (*.pdf),*.pdf,Excel Files (*.xls),*.xls,Word Files (*.doc), *.doc")
SourceFileExtension = Right(SourceFile, 3)
DestinationPath = GetFolderPath
i = 2
Do Until Cells(i, 1) = ""
DestinationFile = DestinationPath & "\" & Cells(i, 1) & "." & SourceFileExtension
FileCopy SourceFile, DestinationFile
i = i + 1
Loop
Display More
after ~500 files it returns error 52 "Bad file name or number"
May somebody to help to solve the problem.
Thanks