本帖最后由 群发软件 于 2017-5-19 00:03 编辑
VB.NET语言经过长时间的发展，很多用户都很了解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复制删除文件这个问题进行简单的介绍一下。
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复制删除文件的一个代码的演示，跑跑试试吧！
// ======================================================
// 实现一个静态方法将指定文件夹下面的所有内容Detele
// 测试的时候要小心操作，删除之后无法恢复。
// April 18April2005 In STU
// ======================================================
public static void DeleteDir(string aimPath)
{
try
{
// 检查目标目录是否以目录分割字符结束如果不是则添加之
if(aimPath[aimPath.Length-1] != Path.DirectorySeparatorChar)
aimPath += Path.DirectorySeparatorChar;
// 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组
// 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法
// string[] fileList = Directory.GetFiles(aimPath);
string[] fileList = Directory.GetFileSystemEntries(aimPath);
// 遍历所有的文件和目录
foreach(string file in fileList)
{
// 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件
if(Directory.Exists(file))
{
DeleteDir(aimPath+Path.GetFileName(file));
}
// 否则直接Delete文件
else
{
File.Delete (aimPath+Path.GetFileName(file));
}
}
//删除文件夹
System.IO .Directory .Delete (aimPath,true);
}
catch (Exception e)
{
MessageBox.Show (e.ToString());
}
}
|( 京ICP备09078825号 )
发表于 2017-5-19 00:01:56
收藏
