vb.net - 删除所有文件和文件夹

Question

我想删除一个文件夹中的所有文件和文件夹。

代码

If Not Directory.Exists(txtTXT.Text) Then
     Return
End If

Dim files() As String
files = Directory.GetFileSystemEntries(txtTXT.Text)

For Each element As String In files
    If (Not Directory.Exists(element)) Then
        File.Delete(Path.Combine(txtTXT.Text, Path.GetFileName(element)))
    End If
Next

我的代码只删除文件，但不删除文件夹......我怎样才能全部删除？

Answer 1

我修改了我的程序，所以我使用了这个代码..

My.Computer.FileSystem.DeleteDirectory( _
    My.Computer.FileSystem.SpecialDirectories.Desktop + "\epubcount", _
    FileIO.DeleteDirectoryOption.DeleteAllContents)

Answer 2

把这段代码变成一个函数。当您遇到目录时，对函数进行递归调用，并将目录名称传递给它。该函数还应该删除传入的目录。