VB.NET刪除文件夾實(shí)現(xiàn)方法介紹
作者：佚名
如果大家想在VB.NET編程中進(jìn)行文件夾刪除的操作時(shí)，會(huì)發(fā)現(xiàn)有的文件夾中帶有子文件夾，那么如何才能正確的刪除它們呢？就讓我們一起來看看VB.NET刪除文件夾的具體操作方法吧。
編程人員在使用了VB.NET語(yǔ)言進(jìn)行編程時(shí)，就會(huì)發(fā)現(xiàn)這款語(yǔ)言可以極大程度的提高我們的程序開發(fā)效率。比如在對(duì)文件夾的操作方面等等。那么今天大家就可以通過對(duì)VB.NET刪除文件夾的操作的解讀，來具體了解這一特性。
VB.NET刪除文件夾的操作是采用遞歸算法刪除帶有多級(jí)子目錄的目錄
- Option Explicit
- Private Sub Command1_Click()
- Dim strPathName As String
- strPathName = ""
- strPathName = InputBox("請(qǐng)輸入需要?jiǎng)h除的文件夾名稱∶", "刪除文件夾")
- If strPathName = "" Then Exit Sub
- On Error GoTo ErrorHandle
- SetAttr strPathName, vbNormal '此行主要是為了檢查文件夾名稱的有效性
- RecurseTree strPathName
- Label1.Caption = "文件夾" & strPathName & "已經(jīng)刪除！"
- 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刪除文件夾的具體方法就為大家介紹到這里。
【編輯推薦】
責(zé)任編輯：曹凱
來源：
wewill.cn
