罕见VB.NET复制删除文件完整示例

有些人认为操作文件是一件非常简单的是，其实并不是，如果你没有权限你就不能对文件进行更改，但是我们今天不讲权限的问题，我们来对VB.NET复制删除文件这个问题进行简单的介绍一下。

创新互联建站-专业网站定制、快速模板网站建设、高性价比芝罘网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式芝罘网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖芝罘地区。费用合理售后完善，十年实体公司更值得信赖。

VB.NET复制删除文件代码：

 
 
 

  
  
  
VB.NET版   
  
  
  
Imports System.IO  
  
  
  
Imports System.IO.Directory  
  
  
  
' ======================================================  
  
  
  
' 实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面  
  
  
  
' 如果目标文件夹为只读属性就会报错。  
  
  
  
' ======================================================  
  
  
  
Public Shared Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)  
  
  
  
Try  
  
  
  
' 检查目标目录是否以目录分割字符\结束,如果不是则添加之  
  
  
  
If aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then  
  
  
  
aimPath += Path.DirectorySeparatorChar  
  
  
  
End If  
  
  
  
'判断源目录是否存在,不存在则退出.  
  
  
  
If (Not Directory.Exists(srcPath)) Then Exit Sub  
  
  
  
' 判断目标目录是否存在如果不存在则新建之  
  
  
  
If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)  
  
  
  
' 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组  
  
  
  
' 如果你指向copy目标文件下面的文件而不包含目录请使用下面的方法  
  
  
  
' string[] fileList = Directory.GetFiles(srcPath);  
  
  
  
Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)  
  
  
  
' 遍历所有的文件和目录  
  
  
  
For Each FileName As String In fileList  
  
  
  
' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件  
  
  
  
If Directory.Exists(FileName) Then  
  
  
  
CopyDir(FileName, aimPath + Path.GetFileName(FileName))  
  
  
  
' 否则直接Copy文件  
  
  
  
Else  
  
  
  
File.Copy(FileName, aimPath + Path.GetFileName(FileName), True)  
  
  
  
End If  
  
  
  
Next  
  
  
  
Catch ex As Exception  
  
  
  
MessageBox.Show(ex.ToString())  
  
  
  
End Try  
  
  
  
End Sub  
  
  
  
' ======================================================  
  
  
  
' 实现一个静态方法将指定文件夹下面的所有内容Detele  
  
  
  
' 测试的时候要小心*作，删除之后无法恢复。  
  
  
  
' ======================================================  
  
  
  
Public Shared Sub DeleteDir(ByVal aimPath As String)  
  
  
  
Try  
  
  
  
' 检查目标目录是否以目录分割字符结束如果不是则添加之  
  
  
  
If (aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar) Then  
  
  
  
aimPath += Path.DirectorySeparatorChar  
  
  
  
End If  
  
  
  
'判断待删除的目录是否存在,不存在则退出.  
  
  
  
If (Not Directory.Exists(aimPath)) Then Exit Sub  
  
  
  
' 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组  
  
  
  
' 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法  
  
  
  
' string[] fileList = Directory.GetFiles(aimPath);  
  
  
  
Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)  
  
  
  
' 遍历所有的文件和目录  
  
  
  
For Each FileName As String In fileList  
  
  
  
If (Directory.Exists(FileName)) Then  
  
  
  
' 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件  
  
  
  
DeleteDir(aimPath + Path.GetFileName(FileName))  
  
  
  
Else  
  
  
  
' 否则直接Delete文件  
  
  
  
File.Delete(aimPath + Path.GetFileName(FileName))  
  
  
  
End If  
  
  
  
Next  
  
  
  
'删除文件夹  
  
  
  
System.IO.Directory.Delete(aimPath, True)  
  
  
  
Catch ex As Exception  
  
  
  
MessageBox.Show(ex.ToString())  
  
  
  
End Try  
  
  
  
End Sub 
 
 
 

以上就是关于VB.NET复制删除文件的一个代码的演示，跑跑试试吧！

文章名称：罕见VB.NET复制删除文件完整示例
网址分享：http://www.mswzjz.cn/qtweb/news0/269150.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

广告

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