用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

阅读更多
文章标签: function
个人分类: asp
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭