For Each 循环中的 File.Delete() 无法正常工作

Question

我尝试使用此代码删除filepath中的每个文件

For Each filetodelete In Directory.GetFiles(filepath, "*.*", SearchOption.TopDirectoryOnly)
   File.Delete(filetodelete)
Next

它适用于.txt文件，但如果我在.pdf或.docx文件上尝试它，它只会删除其中的 3 个。

但是，我可以将与Directory.GetFiles找到的所有文件输出到列表框中。

Answer 1

试试这个，它将删除给定目录中的所有文件和文件夹：

 Dim di as New DirectoryInfo("path here") ''Do not include additional filter parameters here
 For each file as FileInfo in di.EnumerateFiles
    file.Delete()  '''Deletes the files
 Next
 For each Folder as DirectoryInfo in di.EnumerateDirectories
    Folder.Delete(True)   '''Deletes the folders
 Next