asp删除文件夹下的所有文件

function del_file(path)
dim folder, folders, files, file
set folder = fso.getfolder(path)
set files = folder.files
response.write "<B>"&path&"</B><BR>"

for each file in files
response.write "<BR>"&file.name
fso.deletefile file.path,true
response.write " <font color=red>删除成功</font></br>"
next
set folders = folder.subfolders
for each f in folders
del_file f.path
next
end function

我也在找，找到了告诉我

45345