苗启源的部落格

常用虚拟主机的朋友应该都能用到虚拟主机中的清空目录的功能，如果虚拟主机没有清空目录的功能，那么在FTP中删除确实是很讨厌的一件事。
今天我写了一个ASP小程序，用于清空当前目录中的所有文件，这样，即使虚拟主机中没有清空目录的功能，也能快速清空目录。

< %
set fso=createobject("scripting.filesystemobject")
set fpos=fso.getfolder(server.mappath("."))
 
sub echo(t)
response.write t&vbCrlf
end sub
 
sub delpath(fpo)
‘删除fpo中的所有文件
for each file in fpo.files
echo "删除"&file
file.delete
next
‘遍历fpo中所有子目录，并调用子目录清空的过程
for each path in fpo.subfolders
call delpath(path)
next
 
‘删除fpo
if fpo<>fpos then
echo "删除"&fpo
fpo.delete
end if
end sub
 
delpath(fpos)
%>

 
仿个人出书网，完整地址为:个人出书