文件夾及其子文件夾Copy VB.NET

Private Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String) 
 
        Try 
 
            ' 檢查目標目錄是否以目錄分割字符\結束,如果不是則添加之 
 
            If aimPath.Substring(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then 
 
                aimPath += Path.DirectorySeparatorChar 
 
            End If 
 
 
            '判斷源目錄是否存在,不存在則退出. 
 
            If (Not Directory.Exists(srcPath)) Then Exit Sub 
 
 
            '' 判斷目標目錄是否存在如果不存在則新建之 
 
            'If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath) 
 
 
            ' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個數組 
 
            Dim fileList() As String = Directory.GetFileSystemEntries(srcPath) 
 
            ' 遍歷所有的文件和目錄 
 
 
            For Each FileName As String In fileList 
 
                ' 先當作目錄處理如果存在這個目錄就遞歸Copy該目錄下面的文件 
 
                If Directory.Exists(FileName) Then 
 
                    If (Not Directory.Exists(aimPath + Path.GetFileName(FileName))) Then Directory.CreateDirectory(aimPath + Path.GetFileName(FileName)) 
 
                    CopyDir(FileName, aimPath + Path.GetFileName(FileName)) 
 
                    ' 否則直接Copy文件 
 
                Else 
 
                    File.Copy(FileName, aimPath + Path.GetFileName(FileName), True) 
 
                End If 
 
            Next 
 
 
        Catch ex As Exception 
 
            Response.Write("<br>" + ex.ToString()) 
 
        End Try 
 
    End Sub