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("
" + ex.ToString()) 
 
        End Try 
 
    End Sub 

 

网站建设哪家好，找创新互联建站！专注于网页设计、网站建设、微信开发、微信小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了利辛免费建站欢迎大家使用！

当前名称：文件夹及其子文件夹CopyVB.NET
标题链接：http://kswjz.com/article/gjhshs.html