大家好，我們今日繼續(xù)講解VBA代碼解決方案的第69講內(nèi)容：利用Windows Scripting Host(WSH),刪除文件。在Windows Scripting Host(WSH)中刪除文件可以用可以使用DeleteFile方法。

應(yīng)用于FileSystemObject對(duì)象的DeleteFile方法刪除一個(gè)指定的文件，。

語法如下：object.DeleteFile filespec[, force]

參數(shù)

a) object是必需的， FileSystemObject對(duì)象的名字。

b) filespec是必需的，指明要?jiǎng)h除文件的名字，可以在最后的路徑部件中包含通配符。

c) force是可選的，如果要?jiǎng)h除具有只讀屬性設(shè)置的文件，其值為True。如果其值為False（缺?。瑒t不能刪除具有只讀屬性設(shè)置的文件。

特別注意點(diǎn)：在處理文件時(shí)，我在最近一直在講解利用借助于WSH的FileSystemObject對(duì)象模型，這個(gè)模式是微軟提供的專門用來訪問計(jì)算機(jī)文件系統(tǒng)的，具有大量的屬性、方法和事件。其使 用面向?qū)ο蟮?object.method'語法來處理文件夾和文件，使用起來十分方便（需Office 2000以后版本）。FileSystemObject并不是VBA的一部分，它是以一個(gè)COM組件的形式提供的。因此，要使用先要?jiǎng)?chuàng)建 FileSystemObject對(duì)象。這點(diǎn)大家我特別注意。雖然這不是VBA的范疇，但我會(huì)在部分的章節(jié)中零散的講一些FileSystemObject對(duì)象的相關(guān)知識(shí)。包括對(duì)象的模型和對(duì)象的方法。但由于篇幅，我這里主要還是玩VBA，這些不是作為重點(diǎn)，只是在章節(jié)中帶一些。望大家在閱讀的時(shí)候注意。

我們繼續(xù)，如果需要?jiǎng)h除一個(gè)指定的文件，可以使用DeleteFile方法，如下面的代碼所示。

Sub MyDelFile()

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject('Scripting.FileSystemObject')

MyFile.DeleteFile ThisWorkbook.Path & '\abc.docx'

Set MyFile = Nothing

MsgBox 'OK!'

End Sub

代碼解析：

MyDelFile過程使DeleteFile方法刪除示例文件所在文件夾中的'abc.docx'文件。

第4行代碼使用CreateObject函數(shù)創(chuàng)建FileSystemObject對(duì)象并將該對(duì)象賦給變量MyFile。

第5行代碼使用DeleteFile方法復(fù)制文件。

運(yùn)行DelFile過程刪除示例文件所在文件夾中的'abc.docx'文件。

運(yùn)行前：

運(yùn)行后：

文件被刪除了。

今日內(nèi)容回向：

1 利用Windows Scripting Host(WSH),如何刪除一個(gè)文件？

2 刪除的文件是否到回收站了呢？

分享成果，隨喜正能量