VB.NET拷贝整个目录下所有子目录及文件的实例代码

 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