Самый быстрый способ удалить папку, включая все файлы и поддиректории

Question

Я хотел бы знать, знает ли кто-нибудь, какая функция является самым быстрым способом удаления папки и всех ее файлов и подкаталогов.

Я знаю (быстрый один до сих пор):

Dim SHFileOp As SHFILEOPSTRUCT 

With SHFileOp 
    ' Function: Delete 
    .wFunc = FO_DELETE 
    ' Which file/dir 
    .pFrom = uFolder 
    ' Set flags 
    .fFlags = FOF_SILENT Or _ 
       FOF_SIMPLEPROGRESS Or _ 
       FOF_NOCONFIRMATION 
End With 

' Kiss it goodbye 
SHFileOperation SHFileOp 

и (гораздо медленнее):

Dim fso 
Dim fs 

Set fso = CreateObject("Scripting.FileSystemObject") 
fs = fso.DeleteFolder(uFolder, True) 

Кто-нибудь знает функцию, даже быстрее, чем первый?

Answer 1

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

Сохраните свой самый быстрый метод выше, но запустите его в параллельной нити.