C/C++的数值常数后缀的使用总结
有些人认为操作文件是一件非常简单的是,其实并不是,如果你没有权限你就不能对文件进行更改,但是我们今天不讲权限的问题,我们来对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复制删除文件的一个代码的演示,跑跑试试吧!
补充:软件开发 , C++ ,