Nhờ chỉnh sửa code bị lỗi khi chạy

[VỀ ĐÂU 92]

Chào cả nhà, em có đoạn code sau:
vấn đề là khi thay folder AFI RESPONDED FROM CONSULTANT ( chỉ toàn file PDF) có số lượng file ít thì code chạy ngon lành, nhưng khi số lượng file nhiều ~6000 file.PDF thì code không chạy được và báo lỗi "run-time error '52', bad file name or number.

Bác nào biết nguyên nhân chỉ em với,em cảm ơn !

Private Sub CodeCopyFileName()
Application.ScreenUpdating = False
Dim fso As Object
Dim N As Object
Dim i As Integer
Dim j, FileToCopy, Des As String
i = ActiveSheet.Range("b7").End(xlDown).Row + 1
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.getfolder("ADMIN\LETTER\Scanned File\INCOMING\CONSULTANT\AFI RESPONDED FROM CONSULTANT")

For Each N In .Files

FileToCopy = fso.getabsolutepathname(N)

Des = "D:\thu\"


If FileDateTime(FileToCopy) > Range("e4").Value Then

fso.CopyFile FileToCopy, Des

i = i + 1
End If

Next
End With
Application.ScreenUpdating = True
End Sub

 

[huuthang_bd]

6000 file chắc làm thủ công nhanh hơn đó bạn .