VB怎么刪除文件夾？

引用FSO（Microsoft Scripting Runtime），然后寫出

創(chuàng)新互聯(lián)公司是專業(yè)的龍川網(wǎng)站建設(shè)公司，龍川接單;提供成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計,網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行龍川網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊,希望更多企業(yè)前來合作!

Dim FSO As New FileSystemObject

FSO.DeleteFolder ThePath 'ThePath即文件夾路徑，而且不必先清空文件夾

或：（不必引用FSO）

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder ThePath 'ThePath即文件夾路徑，而且不必先清空文件夾

試一試

vb.net 創(chuàng)建文件夾和刪除文件夾

vb.net使用控件folderbrowserdialog1,在程序中:

'設(shè)置對話框中在樹視圖控件上顯示的說明文本

me.folderbrowserdialog1.description

=

"請選擇輸出報表所在路徑:"

'設(shè)置從其開始瀏覽的根文件夾

me.folderbrowserdialog1.selectedpath

=

"c:\"

if

me.folderbrowserdialog1.showdialog()

=

dialogresult.ok

then

'取得全路徑（包含文件名）

reportpath1

=

system.io.path.getfullpath(me.folderbrowserdialog1.selectedpath)

'設(shè)定text顯示文件名

txtreport1.text

=

reportpath1

setreportlist()

end

if

在setreportlist()中針對你所需要的文件進(jìn)行操作等

VB刪除文件夾

用rmdir來刪除,但使用 RmDir 來刪除一個含有文件的目錄或文件夾，則會發(fā)生錯誤。所以在試圖刪除目錄或文件夾之前，先使用 Kill 語句來刪除所有文件.

Kill "*.*" 刪除當(dāng)前目錄下所有文件

' 假設(shè) MYDIR 為一空的目錄或文件夾。

RmDir "MYDIR" ' 將 MYDIR 刪除。

用VB.NET 刪除文件夾 連帶這子目錄一起刪除怎么處理

看看這個，有刪除的

Public strPath As String '要導(dǎo)出的文件夾路徑

Public NewFile As String '文件保存用

'創(chuàng)建文件夾

Public Sub CreatemyFolder(str As String)

Dim Mybook As Workbook

Dim f

Dim mypath As String

'Dim NewFile As String

Dim strPathFolder$

Dim abc As Object

NewFile = str

'強(qiáng)制覆蓋保存時，不讓確認(rèn)框彈出？

Application.DisplayAlerts = False

Set Mybook = ThisWorkbook '把當(dāng)前工作簿定義為變量Mybook

mypath = ThisWorkbook.Path "\"

strPathFolder = mypath NewFile

strPath = strPathFolder "\"

On Error Resume Next

Set abc = CreateObject("Scripting.FileSystemObject")

If abc.FolderExists(strPathFolder) = True Then

'===刪除文件夾==========

Set f = abc.GetFolder(strPathFolder)

f.Delete

abc.CreateFolder (strPathFolder)

'===刪除文件夾==========

Exit Sub

Else

abc.CreateFolder (strPathFolder)

End If

Set abc = Nothing

End Sub

VB 強(qiáng)制刪除文件和文件夾

看看能夠幫到你吧。。。。3個方法可以實現(xiàn):

1:

kill 文件 '刪除文件

rmdir 文件夾 '刪除文件夾

如果想要使用 RmDir 來刪除一個含有文件的目錄或文件夾，則會發(fā)生錯誤。在試圖刪除目錄或文件夾之前，先使用 Kill 語句來刪除所有文件。

2:

或者用對象的方法:

Set fs = CreateObject("Scripting.FileSystemObject")

fs.deletefile 刪除文件

fs.deletefolder 刪除文件夾

3:

用API也可以辦到

Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

deletefile 文件名 '強(qiáng)制刪除一個文件

分享名稱：vb.net中刪除文件夾,vb中刪除文件的命令
文章轉(zhuǎn)載：http://chinadenli.net/article45/dsgedei.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、自適應(yīng)網(wǎng)站、網(wǎng)站排名、網(wǎng)站導(dǎo)航、軟件開發(fā)、品牌網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)