VB.NET删除文件夹实现方法介绍

编程人员在使用了VB.NET语言进行编程时，就会发现这款语言可以极大程度的提高我们的程序开发效率。比如在对文件夹的操作方面等等。那么今天大家就可以通过对VB.NET删除文件夹的操作的解读，来具体了解这一特性。

创新互联建站-成都网站建设公司，专注成都做网站、网站设计、网站营销推广，申请域名，网页空间，网站运营有关企业网站制作方案、改版、费用等问题，请联系创新互联建站。

VB.NET删除文件夹的操作是采用递归算法删除带有多级子目录的目录

 
 
 
  
  
  Option Explicit   
  
  
  Private Sub Command1_Click()  
  
  
  Dim strPathName As String  
  
  
  strPathName = "" 
  
  
  strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")  
  
  
  If strPathName = "" Then Exit Sub  
  
  
  On Error GoTo ErrorHandle  
  
  
  SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性  
  
  
  RecurseTree strPathName  
  
  
  Label1.Caption = "文件夹" & strPathName & "已经删除！"  
  
  
  Exit Sub  
  
  
  ErrorHandle:  
  
  
  MsgBox "无效的文件夹名称:" & strPathName  
  
  
  End Sub  
  
  
  Sub RecurseTree(CurrPath As String)  
  
  
  Dim sFileName As String  
  
  
  Dim newPath As String  
  
  
  Dim sPath As String  
  
  
  Static oldPath As String  
  
  
  sPath = CurrPath & "\"  
  
  
  sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+
vbHidden+vbSystem+vbVolume+vbDirectory  
  
  
  Do While sFileName <> ""  
  
  
  If sFileName <> "." And sFileName <> ".." Then  
  
  
  If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹  
  
  
  newPath = sPath & sFileName  
  
  
  RecurseTree newPath  
  
  
  sFileName = Dir(sPath, 31)  
  
  
  Else  
  
  
  SetAttr sPath & sFileName, vbNormal  
  
  
  Kill (sPath & sFileName)  
  
  
  Label1.Caption = sPath & sFileName '显示删除过程  
  
  
  sFileName = Dir 
  
  
  End If  
  
  
  Else  
  
  
  sFileName = Dir 
  
  
  End If  
  
  
  DoEvents  
  
  
  Loop  
  
  
  SetAttr CurrPath, vbNormal  
  
  
  RmDir CurrPath  
  
  
  Label1.Caption = CurrPath 
  
  
  End Sub

VB.NET删除文件夹的具体方法就为大家介绍到这里。

【编辑推荐】

VB.NET安装工程具体应用方法解析
VB.NET对象序列剧本概念剖析
VB.NET局部变量类型推测基本概念剖析
VB.NET扩展方法概念详解
VB.NET查询包含威力强大

分享名称：VB.NET删除文件夹实现方法介绍
URL地址：http://www.csdahua.cn/qtweb/news32/249682.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容