利用fso顯示某一文件夾中的所有內容
<%
'創建一個FileSystemObject對象的事例
SetMyFileObject=Server.CreateObject(Scripting.FileSystemObject)
path=server.mappath(./folder)'當前目錄下folder文件夾目錄
'創建一個Folder對象
SetMyFolder=MyFileObject.GetFolder(path)
ForEachthinginMyFolder.SubFolders'獲取子文件夾
response.write<p>目錄：&thing
'MyFileObject.DeleteFolderthing刪除文件夾，注意使用
next
'循環顯示其中文件
ForEachthinginMyFolder.Files
Response.Write(<p>文件：&thing)'輸出文件路徑
'MyFileObject.DeleteFilething'刪除這些文件,此刪除不可以恢復，需要小心使用
Next
%>