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://scjbc.cn/article/jsgsop.html

其他资讯