最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

VB.NET拷貝整個(gè)目錄下所有子目錄及文件的實(shí)例代碼

 更新時(shí)間:2013年07月24日 10:36:02   作者:  
這篇文章介紹了拷貝整個(gè)目錄下所有子目錄及文件的代碼,有需要的朋友可以參考一下
復(fù)制代碼 代碼如下:

 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()
       // 遞歸調(diào)用自身
        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

相關(guān)文章

最新評論

喀什市| 山丹县| 岐山县| 睢宁县| 榆社县| 常宁市| 岳池县| 凤山县| 吴堡县| 建阳市| 枣阳市| 九龙县| 武冈市| 宁德市| 公安县| 托克托县| 辽阳市| 华亭县| 汝城县| 陆河县| 罗田县| 中西区| 秦安县| 宣汉县| 丰镇市| 将乐县| 海晏县| 且末县| 陆良县| 卫辉市| 乃东县| 广南县| 横山县| 定日县| 柳河县| 中牟县| 泗水县| 南召县| 葵青区| 鄯善县| 手游|