复制代码 代码如下:

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

CopyDerictory(New DirectoryInfo("C:Documents and SettingsusernameFavorites"), New DirectoryInfo("g: emp"))

End Sub