VB.Net如何实现复制、删除文件

发布时间:2021-12-02 11:37:15 作者:小新
来源:亿速云 阅读:332

这篇文章主要为大家展示了“VB.Net如何实现复制、删除文件”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“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如何实现复制、删除文件”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注亿速云行业资讯频道!

推荐阅读:
  1. python移动、复制、删除文件以及修改文件名的代码
  2. C#中如何实现复制与删除文件

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net

上一篇:C#中操作注册表的主键有哪些

下一篇:tk.Mybatis插入数据获取Id怎么实现

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》