VB删除目录下所有文件的函数

1. Public   Sub   RemoveDir(folderspec) 
2.         '功能说明：删除目录(folderspec)下的所有文件及文件夹 
3.         On   Error   Resume   Next 
4.         
5.         '删除目录(folderspec)下的所有文件 
6.           Dim   fs,   fc 
7.           Dim   f   As   Folder 
8.           Set   fs   =   CreateObject("Scripting.FileSystemObject") 
9.           Set   f   =   fs.GetFolder(folderspec) 
10.                 '删除文件夹 
11.           Set   SubSubFolders   =   f.SubFolders 
12.           Dim   TempFolder   As   Folder 
13.           For   Each   TempFolder   In   SubSubFolders 
14.                     TempFolder.Delete   True 
15.           Next 
16.                 '删除文件 
17.           Set   tempFiles   =   f.Files 
18.           Dim   tempFile   As   File 
19.           For   Each   tempFile   In   tempFiles 
20.                   tempFile.Delete   True 
21.           Next 
22.       
23.   End   Sub