gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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 。

最后此篇关于VB.NET拷贝整个目录下所有子目录及文件的实例代码的文章就讲到这里了,如果你想了解更多关于VB.NET拷贝整个目录下所有子目录及文件的实例代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com