小编给大家分享一下如何使用VB.NET文件夹操作,希望大家阅读完这篇文章之后都有所收获,下面让我们一起去探讨吧!VB.net文件夹操作代码:'文件夹复制 Function CopyDir()Funct
小编给大家分享一下如何使用VB.NET文件夹操作,希望大家阅读完这篇文章之后都有所收获,下面让我们一起去探讨吧!
VB.net文件夹操作代码:
'文件夹复制 Function CopyDir()Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean Try '检查目标目录是否以目录分割字符结束,不是则添加 If Right(targetPath, 1) <> "" Then targetPath += "" '判断目标目录是否存在,不存在则新建 If Not Directory.Exists(targetPath) Then Directory.CreateDirectory(targetPath) ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组 Dim fileList As String() = Directory.GetFileSystemEntries(sourcePath) '遍历所有的文件和目录 For Each filepath As String In fileList '目录处理,递归 If (Directory.Exists(filepath)) Then CopyDir(filepath, targetPath + Path.GetFileName(filepath)) Else '复制文件 File.Copy(filepath, targetPath + Path.GetFileName(filepath), True) End If Next Return True Catch ex As Exception Return False End Try End Function '文件夹删除 Function DelDir()Function DelDir(ByVal targetPath As String) As Boolean Try '检查目标目录是否以目录分割字符结束,不是则添加 If Right(targetPath, 1) <> "" Then targetPath += "" '得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组 Dim fileList As String() = Directory.GetFileSystemEntries(targetPath) '遍历所有的文件和目录 For Each filepath As String In fileList '目录处理,递归 If (Directory.Exists(filepath)) Then DelDir(targetPath + Path.GetFileName(filepath)) Else '删除文件 File.Delete(targetPath + Path.GetFileName(filepath)) End If Next '删除文件夹 System.IO.Directory.Delete(targetPath, True) Return True Catch ex As Exception Return False End Try End Function
看完了这篇文章,相信你对“如何使用VB.NET文件夹操作”有了一定的了解,如果想了解更多相关知识,欢迎关注编程网精选频道,感谢各位的阅读!
--结束END--
本文标题: 如何使用VB.NET文件夹操作
本文链接: https://www.lsjlt.com/news/292965.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-11
2024-05-11
2024-05-11
2024-05-11
2024-05-11
2024-05-11
2024-05-11
2024-05-11
2024-05-11
2024-05-11
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0