你已经从前面的章节里知道了不能删除含有文件的文件夹,要从文件夹里面删除文件的话,可以使用下面的Kill语句:
Kill 文件路径名
文件路径名明确一个或多个你要删除的文件的名称,随你意,也可以将驱动器和文件夹名称包括在里面。你可以在文件路径名参数里使用通配符(*或?)来确保快速删除文件。你不能删除开启的文件。
如果你是跟着前面的练习一步一步过来的,那么你的硬盘上应该有了文件夹C:\Abort和好几个文件了里面了。在下面的练习里,你将首先删除文件夹Abort里面的所有文件,然后再删除文件夹本身:
1. 在当前工程里插入新模块,并重命名为KillStatement
2. 在过程RemoveMe里输入代码,如下所示:
Sub RemoveMe()
Dim folder As String
Dim myFile As String
‘assign the name of folder to the folder variable
‘notice the ending backslash "\"
folder = "C:\Abort\"
myFile = Dir(folder, vbNormal)
Do While myFile <> ""
Kill folder & myFile
myFile = Dir
Loop
RmDir folder
End Sub
3. 运行过程RemoveMe,当程序运行结束,点击Windows文件浏览器看看该文件夹是否已经被删除了。