[תÌû]¹ØÓÚFSOɾ³ýÎļþ»òÎļþ¼Ð

ÅÑÄ椡̫ÉÏ»Ê

¹ØÓÚFSOɾ³ýÎļþ»òÎļþ¼Ðdim fso=server.createobject("script.fileSystemObject") if fso.folderexists(Server.MapPath(filename)) then fso.deleteFolder(Server.MapPath(filename)) end if ɾ³ýÎļþ if fso.FileExists(Server.MapPath(filename)) then fso..DeleteFile(Server.MapPath(filename)) end if ɾ³ýÎļþº¯Êý£º Function DeleFile(FilePath) On Error Resume Next Set Del=Server.CreateObject("Scripting.FileSystemObject") if Err <> 0 Then DelFile="¸Ã¿Õ¼ä²»Ö§³ÖFSO×é¼þ»òÕßÎļþ·¾¶´íÎó£¡" else if InStr(FilePath, ",") > 0 then FilePath=Split(FilePath,",") For i = 0 to ubound(FilePath) If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath(i)),true Next Else If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath),true End if End if Set Del=Nothing End Function

±ò±òÓÐÀñ

ÎÒ¸ÕÀ´~~~ºÙºÙ~~