Loading content, please wait..
首頁 > 網站製作文章 > ASP 刪除整個目錄

網站製作文章

ASP 刪除整個目錄

'刪目錄
SUB PF_delfolder(sPath)
  dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles
  set fso=server.CreateObject("scripting.FileSystemObject")
   If (fso.FolderExists(server.MapPath (sPath))) then
    set tmpfolder=fso.GetFolder(server.MapPath (sPath))
    set tmpfiles=tmpfolder.files
    for each tmpfile in tmpfiles
     fso.DeleteFile (tmpfile)
    next
    set tmpsubfolder=tmpfolder.SubFolders
    for each tmpfolder in tmpsubfolder
     PF_delfolder(spath&"/"&tmpfolder.name )
    next
    fso.DeleteFolder (server.MapPath (sPath))
   end if
end sub




關鍵字:ASP 刪除整個目錄 , 網站製作文章 , 網站設計-台北網站設計公司,