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

标题: VB.Net的一键删除与复制是这样来的呀学到一招了吧 [打印本页]

作者: 群发软件 时间: 2017-5-22 22:54
标题: VB.Net的一键删除与复制是这样来的呀学到一招了吧
本帖最后由群发软件于 2017-5-22 22:56 编辑

　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 时间: 2017-5-23 17:35
快，水平也不错。好评

作者: 枯干枯干 时间: 2017-5-24 03:22
不错不错，您辛苦了。。。

作者: shenyeben 时间: 2017-5-29 11:54
老板人非常好

作者: yiyi2014 时间: 2017-6-2 05:44
有创意了，设计出来的样式很符合我们想要的风格，画面精美，做出来的效果不错，谢谢店家的耐心服务，很满意。

作者: tian001 时间: 2017-6-4 00:53
的。下次用到还来买。卖家态度很好

作者: meilifc001 时间: 2017-6-13 03:21
力，好评

作者: daoke 时间: 2017-6-16 11:09
意，对我的帮助非常的大，很满意

作者: dongwuhua 时间: 2017-6-19 10:31
谢卖家。三两下就解决了问题

作者: zzjiuzi008 时间: 2017-6-21 09:00
很满意

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