教你更快速使用VB.NET文件夹操作

文件夹这个概念大家都很熟悉，在各各操作系统中都有文件夹这个概念，而在VB.NET这门开发语言中如何更好更安全的操作文件夹，这就是今天我们要来演示的一个案例。希望从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文件夹操作
本文来源：http://www.csdahua.cn/qtweb/news8/527608.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网