Imports System.IO

Public Shared Sub DeleteDir(ByVal aimPath As String)
    Try

        '判断待删除的目录是否存在,不存在则退出.    
        If (Not Directory.Exists(aimPath)) Then Exit Sub
        ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组    
        ' 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法    
        ' string[] fileList = Directory.GetFiles(aimPath);    
        Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)
        ' 遍历所有的文件和目录    
        For Each FileName As String In fileList
        If (Directory.Exists(FileName)) Then
        ' 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件    
        DeleteDir(aimPath + Path.GetFileName(FileName))
        Else
        ' 否则直接Delete文件    
        File.Delete(aimPath + Path.GetFileName(FileName))
        End If
        Next
        '删除文件夹、不删除    
        'System.IO.Directory.Delete(aimPath, True)
        Catch ex As Exception
        MessageBox.Show(ex.ToString())
    End Try
End Sub

分类:

.NET,

最后更新: 7 1 月, 2014