删除包含所有文件和子目录的文件夹的最快方法

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

如果实际的删除过程占用了您的活动线程，那么您可以尝试多线程处理该过程。

保留上面最快的方法，但让它在并行线程中运行。