小编给大家分享一下如何使用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文件夹操作”有了一定的了解，如果想了解更多相关知识，欢迎关注创新互联行业资讯频道，感谢各位的阅读！
标题名称：如何使用VB.NET文件夹操作
本文URL：
http://cdkjz.cn/article/jshiis.html
