概述 有些人认为 *** 作
文件是一件非常简单的是,其实并不是,如果你没有权限你就不能对文件进行更改,但是我们今天不讲权限的问题,我们来对VB.NET
复制删除文件这个问题进行简单的介绍一下。 VB.NET复制
删除文件代码: VB.NET版 Imports System.IO Imports System.IO.Directory ' ======================
有些人认为 *** 作文件是一件非常简单的是,其实并不是,如果你没有权限你就不能对文件进行更改,但是我们今天不讲权限的问题,我们来对VB.NET复制删除文件这个问题进行简单的介绍一下。
VB.NET复制删除文件代码:
VB.NET版 importsSystem.IO importsSystem.IO.Directory '====================================================== '实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面 '如果目标文件夹为只读属性就会报错。 '====================================================== PublicSharedSubcopyDir(ByValsrcPathAsString,ByValaimPathAsstring) Try '检查目标目录是否以目录分割字符\结束,如果不是则添加之 IfaimPath(aimPath.Length-1)<>Path.DirectorySeparatorCharThen aimPath+=Path.DirectorySeparatorChar EndIf '判断源目录是否存在,不存在则退出. If(NotDirectory.Exists(srcPath))ThenExitSub '判断目标目录是否存在如果不存在则新建之 If(NotDirectory.Exists(aimPath))ThenDirectory.CreateDirectory(aimPath) '得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组 '如果你指向copy目标文件下面的文件而不包含目录请使用下面的方法 'string[]fileList=Directory.Getfiles(srcPath); DimfileList()Asstring=Directory.GetfileSystemEntrIEs(srcPath) '遍历所有的文件和目录 ForEachfilenameAsstringInfileList '先当作目录处理如果存在这个目录就递归copy该目录下面的文件 IfDirectory.Exists(filename)Then copyDir(filename,aimPath+Path.Getfilename(filename)) '否则直接copy文件 Else File.copy(filename,aimPath+Path.Getfilename(filename),True) EndIf Next CatchexAsException MessageBox.Show(ex.ToString()) EndTry EndSub '====================================================== '实现一个静态方法将指定文件夹下面的所有内容Detele '测试的时候要小心*作,删除之后无法恢复。 '====================================================== PublicSharedSubDeleteDir(ByValaimPathAsstring) Try '检查目标目录是否以目录分割字符结束如果不是则添加之 If(aimPath(aimPath.Length-1)<>Path.DirectorySeparatorChar)Then aimPath+=Path.DirectorySeparatorChar EndIf '判断待删除的目录是否存在,不存在则退出. If(NotDirectory.Exists(aimPath))ThenExitSub '得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组 '如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法 'string[]fileList=Directory.Getfiles(aimPath); DimfileList()Asstring=Directory.GetfileSystemEntrIEs(aimPath) '遍历所有的文件和目录 ForEachfilenameAsstringInfileList If(Directory.Exists(filename))Then '先当作目录处理如果存在这个目录就递归Delete该目录下面的文件 DeleteDir(aimPath+Path.Getfilename(filename)) Else '否则直接Delete文件 file.Delete(aimPath+Path.Getfilename(filename)) EndIf Next '删除文件夹 System.IO.Directory.Delete(aimPath,True) CatchexAsException MessageBox.Show(ex.ToString()) EndTry EndSub |
总结
以上是内存溢出为你收集整理的VB.NET复制删除文件全部内容,希望文章能够帮你解决VB.NET复制删除文件所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
评论列表(0条)