可能用来做坏事VB,.NET可以随意删除复制系统文件了

群发软件

	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

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

阿拉丁

	,給個讚!

jh134724

	效，沟通愉快！不错的店家！！！

aluoting

	小小笨蛋和5号笨蛋

cd0010

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

feiyang2006

	，清晰度也很合适。太划算啦

小痞子

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

ctbvip

	了，质量很不错，和店家描述一样，好评

tian001

	很精美，多样化，店家服务态度很好，满意！