Метод File.Move (путь) занимает слишком много времени

Question

У меня есть эта часть кода в Excell

If FSO.fileExists(OldName) Then ' FSO is fileSystemObject 
     Cells(1, 3).Value = "Passed" 
     Set source = FSO.getfile(OldName) 
     source.Move (NewName) 
    end if 

где OldName является Somthing как "C: \ DOC \ file.txt" и NewName это что-то вроде «C : \ DOC \ NewName \ file.txt»

каталог C: \ DOC \ NEWNAME содержит ~ 20 000 TXT файлов и линии source.Move (NewName) занимает около 4 мин для выполнения (размер файла 2kB, компьютер очень старый ...)
Если я использую пустой каталог, код запускается через секунду.

Мне не разрешено использовать другой каталог, и я не могу удалить из него файлы.

Может кто-нибудь объяснить, почему это так долго, и каковы варианты сокращения времени?

Answer 1

Так я до сих пор понятия не имею, почему это занимает так много времени, но я нашел обходное решение.

Я использую этот подход, чтобы скопировать файлы

Shell "cmd.exe /S /C move " & oldName & " " & newName, windowStyle:=vbHide 

это работает невидимая команда консоли, которая перемещает файл. VBA не ждет окончания командной строки и продолжает выполнять другие задачи.

Answer 2

вы можете попробовать это

If FSO.fileExists(OldName) Then ' FSO is fileSystemObject 
    Cells(1, 3).Value = "Passed" 
    Set source = FSO.getfile(OldName) 
    Name OldName As NewName 

конец, если

UPDATE

нормально, то вы можете попробовать это:

If Len(Dir(OldName)) = 0 Then 
    MsgBox "File does not exist" 
Else 
    Name OldName As NewName 
End If