189 8069 5689

VB.NET中怎么删除文件夹

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

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

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

  1. Option Explicit   
  2. Private Sub Command1_Click()  
  3. Dim strPathName As String  
  4. strPathName = "" 
  5. strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")  
  6. If strPathName = "" Then Exit Sub  
  7. On Error GoTo ErrorHandle  
  8. SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性  
  9. RecurseTree strPathName  
  10. Label1.Caption = "文件夹" & strPathName & "已经删除！"  
  11. Exit Sub  
  12. ErrorHandle:  
  13. MsgBox "无效的文件夹名称:" & strPathName  
  14. End Sub  
  15. Sub RecurseTree(CurrPath As String)  
  16. Dim sFileName As String  
  17. Dim newPath As String  
  18. Dim sPath As String  
  19. Static oldPath As String  
  20. sPath = CurrPath & "\"  
  21. sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+
    vbHidden+vbSystem+vbVolume+vbDirectory  
  22. Do While sFileName <> ""  
  23. If sFileName <> "." And sFileName <> ".." Then  
  24. If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹  
  25. newPath = sPath & sFileName  
  26. RecurseTree newPath  
  27. sFileName = Dir(sPath, 31)  
  28. Else  
  29. SetAttr sPath & sFileName, vbNormal  
  30. Kill (sPath & sFileName)  
  31. Label1.Caption = sPath & sFileName '显示删除过程  
  32. sFileName = Dir 
  33. End If  
  34. Else  
  35. sFileName = Dir 
  36. End If  
  37. DoEvents  
  38. Loop  
  39. SetAttr CurrPath, vbNormal  
  40. RmDir CurrPath  
  41. Label1.Caption = CurrPath 
  42. End Sub 

以上就是VB.NET中怎么删除文件夹，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。


新闻标题：VB.NET中怎么删除文件夹
当前网址：http://cdxtjz.cn/article/jsgsop.html

其他资讯