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 ======================================================   // 实现一个静态方法将指定文件夹下面的所有内容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());    }   }

yerface

	快，水平也不错。好评

枯干枯干

	不错不错，您辛苦了。。。

shenyeben

	老板人非常好

yiyi2014

	有创意了，设计出来的样式很符合我们想要的风格，画面精美，做出来的效果不错，谢谢店家的耐心服务，很满意。

tian001

	的。下次用到还来买。卖家态度很好

meilifc001

	力，好评

daoke

	意，对我的帮助非常的大，很满意

dongwuhua

	谢卖家。三两下就解决了问题

zzjiuzi008

	很满意