文件夹及其子文件夹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