频道栏目
首页 > 程序开发 > Web开发 > ASP.Net > 正文
拷贝整个目录下所有子目录及文件的方法
2006-07-14 07:04:19           
收藏   我要投稿
 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


点击复制链接 与好友分享!回本站首页
上一篇:.Net 下区别使用 ByRef/ByVal 的重要性
下一篇:Asp.net 页面导航的几种方法与比较
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站