<Html>
<HEAD><TITLE>fso刪除當前文件夾中的所有內容</TITLE></HEAD>
<style>
body {font-size:12px;margin-top:20px;margin-left:20px;}
</style>
<BODY>
<%
'功能:刪除當前文件夾下所有內容,包括文件夾和文件
'開發:wangsdong
'網站:www.ASPprogram.cn
'原創文章,轉載請保留此信息
'創建一個FileSystemObject對象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'創建一個Folder對象
foldername=server.mappath("./")
Set MyFolder=MyFileObject.GetFolder(foldername)
i=0
'循環顯示其中文件夾
For Each thing in MyFolder.subfolders
if MyFileObject.folderExists(thing) then '判斷folder文件夾是否存在
t2=thing
MyFileObject.deletefolder thing '刪除folder文件夾
response.write "<br>"&t2&"-----文件夾已經刪除"
else
response.write "<br>"&thing&"-----文件夾不存在,無法刪除"
end if
i=i+1
Next
response.write "共有刪除了"&i&"個文件夾<br><br>"
'循環顯示其中文件
i=0
For Each thing in MyFolder.Files
if MyFileObject.FileExists(thing) then '判斷folder文件夾是否存在
t2=thing
MyFileObject.DeleteFile thing '刪除folder文件夾
response.write "<br>"&t2&"-----文件已經刪除"
else
response.write "<br>"&thing&"-----文件不存在,無法刪除"
end if
i=i+1
Next
response.write "共有刪除了"&i&"個文件"
%>
</Body>
</Html>