程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> fso刪除當前文件夾下所有的內容

fso刪除當前文件夾下所有的內容

編輯:ASP技巧

<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>

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved