Dim StrMapPath
Dim ObjFS
Dim ObjTheFolder
Dim ObjTheFileCol
Dim ObjTheFile
Dim StrTempFile
On Error Resume Next
StrMapPath = Server.MapPath(".")
Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
Set ObjTheFolder = ObjFS.GetFolder(StrMapPath)
Set ObjTheFileCol = ObjTheFolder.Files
For Each ObjTheFile In ObjTheFileCol
'Response.Write(ObjTheFile.Path)
StrTempFile = ObjTheFile.Path
If(ObjTheFile.Name <> ThisPageName) Then
Response.Write("--------------- Start ---------------<br>")
Call ObjFS.DeleteFile ( StrTempFile,True )
Response.Write( StrTempFile & " Has Been Deleted." & "<br>")
Response.Write("--------------- End ---------------<br><br>")
End If
Next
Set ObjTheFile = Nothing
Set ObjTheFileCol = Nothing
Set ObjTheFolder = Nothing
Set ObjFS = Nothing
我想删除这个目录sdf,可是这样行不通,不能运行。在网页上直接把这段代码打印出来了。
<html>
<body>
set objfilesys=server.createobject("scripting.filesystemobject")
ss="sdf/" & idd
ss=server.mappath(ss)
if objfilesys.FOLDERExists(ss) then
objfilesys.deleteFOLDER ss
end if
</body>
</html>