文件夹及其子文件夹CopyVB.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("
" + ex.ToString())- End Try
- End Sub
网站建设哪家好,找创新互联建站!专注于网页设计、网站建设、微信开发、微信小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了利辛免费建站欢迎大家使用!
当前标题:文件夹及其子文件夹CopyVB.NET
标题来源:http://myzitong.com/article/gjhshs.html