服务器端文件夹拷贝
来源:互联网 发布:知乎方糖 编辑:程序博客网 时间:2024/04/29 02:46
实现服务器端文件夹拷到服务器端另一文件夹.
'-------------------------behind code---------------------------------
Imports System
Imports System.IO
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CopyDerictory(New DirectoryInfo("d:/temp/"), New DirectoryInfo("d:/temp2"))
End Sub
Public Sub CopyDerictory(ByVal DirectorySrc As DirectoryInfo, ByVal DirectoryDes As DirectoryInfo)
Dim strDirectoryDesPath As String = DirectoryDes.FullName & "/" & DirectorySrc.Name
If Not Directory.Exists(strDirectoryDesPath) Then
Directory.CreateDirectory(strDirectoryDesPath)
End If
Dim f, fs() As FileInfo
fs = DirectorySrc.GetFiles()
For Each f In fs
File.Copy(f.FullName, strDirectoryDesPath & "/" & f.Name, True)
Next
Dim DirSrc, Dirs() As DirectoryInfo
Dirs = DirectorySrc.GetDirectories()
'递归调用自身
For Each DirSrc In Dirs
Dim DirDes As New DirectoryInfo(strDirectoryDesPath)
CopyDerictory(DirSrc, DirDes)
Next
End Sub
- 服务器端文件夹拷贝
- 拷贝文件夹
- 拷贝文件夹
- 拷贝文件夹
- 文件夹拷贝
- 拷贝文件夹
- 文件夹拷贝
- 拷贝文件夹 删除文件夹
- 文件夹、文件夹内容拷贝
- VB拷贝文件,拷贝文件夹
- 拷贝复制文件夹
- linux的 拷贝文件夹
- Ant拷贝文件夹
- Netinstall 拷贝驱动文件夹
- vc 递归拷贝文件夹
- inno setup拷贝文件夹
- Win32拷贝文件夹
- 拷贝件或者文件夹
- 我的第一篇文章!
- 一个女孩子的创业体验
- typedef
- 利用JSF、SpringFramework和Hibernate构建Web应用的实例讲述
- 在RHFC3下配置sendmail服务器
- 服务器端文件夹拷贝
- Struts+Spring+Hibernate快速入门
- 一次郁闷的招标会
- 软键盘保护客户密码
- 国外某软件 3.47 注册算法分析
- 使用 JFreeChart来创建基于web的图表
- 软件的需求会变化吗?
- Digester学习笔记
- 开发软件的状态