VB.NET中怎么删除文件夹

本篇文章给大家分享的是有关VB.NET中怎么删除文件夹，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。

创新互联建站专注于企业网络营销推广、网站重做改版、霍州网站定制设计、自适应品牌网站建设、H5建站、成都做商城网站、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为霍州等各大城市提供网站开发制作服务。

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中怎么删除文件夹
网站路径：https://www.cdcxhl.com/article8/jsgsop.html

成都网站建设公司_创新互联，为您提供网站收录、App设计、网站策划、品牌网站设计、企业建站、营销型网站建设

广告

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