信息发布软件,b2b软件,广告发布软件

标题: 可能用来做坏事VB,.NET可以随意删除复制系统文件了 [打印本页]

作者: 群发软件 时间: 2017-5-19 00:01
标题: 可能用来做坏事VB,.NET可以随意删除复制系统文件了
本帖最后由群发软件于 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());
}
  }

作者: ekmci 时间: 2017-5-19 01:25
不错，专业！我不会弄天天特价，还帮我设置了下，还有别的好多的小事情，都很热心的帮我了，有时候实在是不好意思，太感激卖家了，不光帮我设计好图，还像一个朋友一样的帮我！

作者: 阿拉丁 时间: 2017-5-19 02:45
,給個讚!

作者: jh134724 时间: 2017-5-23 10:10
效，沟通愉快！不错的店家！！！

作者: aluoting 时间: 2017-5-25 22:36
小小笨蛋和5号笨蛋

作者: cd0010 时间: 2017-5-26 02:46
，技术也很好沟通，公众号开发的很好，用，比较简单，但是还没时间弄，有空一点点的琢磨吧，微商城和微官网很好操

作者: feiyang2006 时间: 2017-5-26 14:54
，清晰度也很合适。太划算啦

作者: 小痞子 时间: 2017-5-27 21:01
服务确实到位，基本是随叫随到！谢谢客服小笨蛋和技术人员15号笨蛋，虽然中间有一些耽搁了时间，总的来说完成的很满意，下次肯定还要来这家做！

作者: ctbvip 时间: 2017-6-1 09:39
了，质量很不错，和店家描述一样，好评

作者: tian001 时间: 2017-6-2 04:11
很精美，多样化，店家服务态度很好，满意！

作者: dongwuhua 时间: 2017-6-8 05:01
模版好看时尚老板服务态度好下次继续光临这家店好评！

作者: jingtai001 时间: 2017-6-13 01:54
，就是客服回复速度太慢，有时候问个信息竟然没人回

欢迎光临信息发布软件,b2b软件,广告发布软件 (http://www.postbbs.com/)