删除所有文件和文件夹

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

将此代码转换为函数。遇到目录时，对该函数进行递归调用，并将目录名称传递给它。该函数还应删除传入的目录。