文件夹及其子文件夹Copy VB.NET
发表于：2024-11-28 作者：热门IT资讯网编辑
编辑最后更新 2024年11月28日，Private Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)Try ' 检查目标目录是否以目录分割字符\结束,如果不是则添
- 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