复制文件夹里的内容这么难吗
想把aaa文件夹中的所有内容复制到D:\File 文件夹里
可是D:\File文件夹里面是空的
Dim p As String = Server.MapPath("aaa")
Dim di As New DirectoryInfo(p)
Dim allSub As DirectoryInfo() = di.GetDirectories()
Dim tmpD As DirectoryInfo
Dim tmpFiles As FileInfo()
Dim tmpF As FileInfo
Dim DPan As DirectoryInfo = Directory.CreateDirectory("D:\File")
For Each tmpD In allSub
tmpFiles = tmpD.GetFiles()
If Not Directory.Exists(DPan.FullName + "\" + tmpD.Name) Then
DPan.CreateSubdirectory(tmpD.Name)
End If
For Each tmpF In tmpFiles
tmpF.CopyTo(DPan.FullName + "\" + tmpD.Name + "\" + tmpF.Name, True)
Next
Next