VB.NET文件夹操作相关技巧分享

编程人员利用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 
 
 
 

VB.NET文件夹操作之复制文件

 
 
 

  
  
  
File.Copy(filepath, 
targetPath 
+ Path.GetFileName
(filepath), True)  
  
  
  
End If  
  
  
  
Next  
  
  
  
Return True  
  
  
  
Catch ex As Exception  
  
  
  
Return False  
  
  
  
End Try  
  
  
  
End Function 
 
 
 

VB.NET文件夹操作之文件夹删除

 
 
 

  
  
  
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.GetFile
Name(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.shufengxianlan.com/qtweb/news49/143249.html

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

广告

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