一个VB.NET的删除目录的模块

在上一个模块的基础上改了一下，花了几分钟。虽然简单，但是比较有用，就当是代码收集:

Public Sub DelDirectory(ByVal DirName As String)

'If Not (Microsoft.VisualBasic.Right(destDirName, 1) = Path.DirectorySeparatorChar) Then
' ''取目标数程序，最后一个字符是否是“/”，不是则加上
' destDirName = destDirName + Path.DirectorySeparatorChar
'End If
Try
Dim files As String() = Directory.GetFiles(DirName)

For Each strfile As String In files

File.Delete(strfile) '删除文件

Next
Dim dirs As String() = Directory.GetDirectories(DirName)

For Each mydir As String In dirs

DelDirectory(mydir) ''递归遍历
Directory.Delete(mydir) '''删除此目录
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub