日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET刪除文件夾實(shí)現(xiàn)方法介紹

編程人員在使用了VB.NET語言進(jìn)行編程時，就會發(fā)現(xiàn)這款語言可以極大程度的提高我們的程序開發(fā)效率。比如在對文件夾的操作方面等等。那么今天大家就可以通過對VB.NET刪除文件夾的操作的解讀，來具體了解這一特性。

創(chuàng)新互聯(lián)建站-成都網(wǎng)站建設(shè)公司，專注成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)站營銷推廣，申請域名，網(wǎng)頁空間，網(wǎng)站運(yùn)營有關(guān)企業(yè)網(wǎng)站制作方案、改版、費(fèi)用等問題，請聯(lián)系創(chuàng)新互聯(lián)建站。

VB.NET刪除文件夾的操作是采用遞歸算法刪除帶有多級子目錄的目錄

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

VB.NET刪除文件夾的具體方法就為大家介紹到這里。

【編輯推薦】

  1. VB.NET安裝工程具體應(yīng)用方法解析
  2. VB.NET對象序列劇本概念剖析
  3. VB.NET局部變量類型推測基本概念剖析
  4. VB.NET擴(kuò)展方法概念詳解
  5. VB.NET查詢包含威力強(qiáng)大

文章題目：VB.NET刪除文件夾實(shí)現(xiàn)方法介紹
當(dāng)前URL：http://www.dlmjj.cn/article/cosihho.html