明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

拷贝整个目录下所有子目录及文件的方法

[摘要]Public Sub CopyDerictory(ByVal DirectorySrc As DirectoryInfo, ByVal DirectoryDes As DirectoryInfo) Dim strDirectoryDesPath As String = Directo...
 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 Settings\username\Favorites"), New DirectoryInfo("g:\temp"))
    End Sub