Question

VB怎样复制文件夹?（包括里面的文件）

比如将D盘的所有东西复制到E盘。应该怎样写呢？

Answer 1

给你一个列子
sourcePath 为源文件地址
targetPath 存放文件的地址

'复制文件夹到指定位置
Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean
Try
'检查目标目录是否以目录分隔符结束，不是则添加
If Microsoft.VisualBasic.Right(targetPath, 1) <> "" Then targetPath += System.IO.Path.DirectorySeparatorChar
'判断目标目录是否存在，不存在则新建
If Not Directory.Exists(targetPath) Then Directory.CreateDirectory(targetPath)
'得到源目录的文件列表，该文件裏面是包含文件以及目录路径的一个数组
Dim fileList As String() = Directory.GetFileSystemEntries(sourcePath)

'遍历所有的文件和目录
For Each filepath As String In fileList
'目录处理，递归
If (Directory.Exists(filepath)) Then
CopyDir(filepath, targetPath + Path.GetFileName(filepath))
Else
'复制文件
File.Copy(filepath, targetPath + Path.GetFileName(filepath), True)
End If
Next
Return True
Catch ex As Exception
Return False
End Try
End Function
希望对你有所帮助·····

Answer 2

shell"copy d:\ e:\"