ASP替代FTP清空目录

常用虚拟主机的朋友应该都能用到虚拟主机中的清空目录的功能,如果虚拟主机没有清空目录的功能,那么在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)
%>

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据