代码如下: 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
