在VB編程中，我們如何刪除一個指定的文件，或者文件夾呢？

本文，介紹兩種方法，詳細的介紹如何實現(xiàn)刪除文件和文件夾，并對兩種方法的區(qū)別做一個說明。

一、刪除文件的方法

方法1：

使用kill方法刪除文件

語法：

kill filename

說明：filename為文件的路徑

方法2：

使用DeleteFile方法刪除文件

語法：

Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFile filename

說明：

filename為文件的路徑

使用以上兩種方法刪除文件時，可以使用"*"和"?"通配符，以實現(xiàn)批量刪除有一定規(guī)律的文件。

例如：

kill "E:\test\*.txt"

上面這個代碼可以刪除E:\test文件夾下所有txt格式的文件。

二、刪除文件夾

方法1：

使用RmDir方法刪除文件夾

語法：

RmDir folderName

說明：

folderName為文件夾路徑

方法2：

使用deletefolder刪除指定文件夾

Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.deletefolder folderName

說明：

folderName為文件夾路徑

使用方法1和方法2來刪除文件夾時的區(qū)別：

在使用RmDir來刪除文件夾時，只能刪除一個空的文件夾，如果文件夾內有文件或者文件夾，則刪除會出錯。

而使用deletefolder刪除文件夾時，則不會存在上述問題。它將會連同文件夾內所有文件，全部刪除。

刪除文件和文件夾時注意事項：

當刪除文件和文件夾時，如果文件處于打開或者文件名不正確時，刪除可能會發(fā)生錯誤。此時可以使用on error go to語句來實現(xiàn)錯誤跳轉。

舉例：

通過以下這個例子，掌握刪除文件和刪除文件夾的方法，以及兩種方法的區(qū)別。

界面如下所示：

代碼如下所示：

Option ExplicitDim str$Private Sub Form_Load()????'設置測試文件目錄，請根據(jù)自己的文件位置修改 str = "C:\Users\Administrator\Desktop\新建文件夾"End?Sub'用kill刪除指定文件Private Sub Command1_Click() '刪除該目錄下的test.txt文件 Kill str & "\新建文本文檔.txt"End Sub'用kill刪除所有文件Private Sub Command2_Click() '刪除該目錄下所有文件 Kill str & "*.*"End Sub'用deletefile刪除指定文件Private Sub Command3_Click() Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFile str & "\新建文本文檔.txt"End Sub'用deletefile刪除所有文件Private Sub Command4_Click() Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFile str & "\*.*"End?Sub'用kill刪除指定文件夾Private Sub Command5_Click() RmDir str '注意，此方法只能刪除空的文件夾End Sub'用deletefolder刪除文件夾Private Sub Command6_Click() Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.deletefolder str '注意，此方法可以刪除非空文件夾End Sub

運行程序，然后在相應的文件夾內放置文件或者文件夾，再點擊各按鈕測試，查看效果。

總結

以上是生活随笔為你收集整理的删除文件夹下所有的文件_VB删除文件和文件夹的方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。