建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
VB.NET刪除文件夾實(shí)現(xiàn)方法介紹
編程人員在使用了VB.NET語(yǔ)言進(jìn)行編程時(shí)，就會(huì)發(fā)現(xiàn)這款語(yǔ)言可以極大程度的提高我們的程序開(kāi)發(fā)效率。比如在對(duì)文件夾的操作方面等等。那么今天大家就可以通過(guò)對(duì)VB.NET刪除文件夾的操作的解讀，來(lái)具體了解這一特性。
創(chuàng)新互聯(lián)建站-成都網(wǎng)站建設(shè)公司，專(zhuān)注成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)站營(yíng)銷(xiāo)推廣，申請(qǐng)域名，網(wǎng)頁(yè)空間，網(wǎng)站運(yùn)營(yíng)有關(guān)企業(yè)網(wǎng)站制作方案、改版、費(fèi)用等問(wèn)題，請(qǐng)聯(lián)系創(chuàng)新互聯(lián)建站。
VB.NET刪除文件夾的操作是采用遞歸算法刪除帶有多級(jí)子目錄的目錄
- Option Explicit
- Private Sub Command1_Click()
- Dim strPathName As String
- strPathName = ""
- strPathName = InputBox("請(qǐng)輸入需要?jiǎng)h除的文件夾名稱(chēng)∶", "刪除文件夾")
- If strPathName = "" Then Exit Sub
- On Error GoTo ErrorHandle
- SetAttr strPathName, vbNormal '此行主要是為了檢查文件夾名稱(chēng)的有效性
- RecurseTree strPathName
- Label1.Caption = "文件夾" & strPathName & "已經(jīng)刪除！"
- Exit Sub
- ErrorHandle:
- MsgBox "無(wú)效的文件夾名稱(chēng):" & 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 '顯示刪除過(guò)程
- 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安裝工程具體應(yīng)用方法解析
- VB.NET對(duì)象序列劇本概念剖析
- VB.NET局部變量類(lèi)型推測(cè)基本概念剖析
- VB.NET擴(kuò)展方法概念詳解
- VB.NET查詢(xún)包含威力強(qiáng)大
網(wǎng)站欄目：VB.NET刪除文件夾實(shí)現(xiàn)方法介紹
文章分享：http://fisionsoft.com.cn/article/cosihho.html
