知识大全罕见的VB.NET复制删除文件完整示例

Posted 2022-07-17 目录

篇首语：男儿欲遂平生志，六经勤向窗前读。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全罕见的VB.NET复制删除文件完整示例相关的知识，希望对你有一定的参考价值。

罕见的VB.NET复制删除文件完整示例 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　有些人认为操作文件是一件非常简单的是其实并不是如果你没有权限你就不能对文件进行更改但是我们今天不讲权限的问题我们来对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 ) <> 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 ) <> 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

cha138/Article/program/net/201311/11756

知识大全 罕见的VB.NET复制删除文件完整示例

知识大全罕见的VB.NET复制删除文件完整示例