一聚教程网:一个值得你收藏的教程网站

热门教程

asp fso删除文件DeleteFile与文件夹DeleteFolder

时间:2022-06-30 11:41:44 编辑:袖梨 来源:一聚教程网


'==============================
 '函 数 名:DelFolder
 '作    用:删除文件夹
 '参    数:文件夹相对路径FolderPath
 '==============================
 Function DelFolder(FolderPath)
  If IsFolder(FolderPath)=True Then
   Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
   Fso.DeleteFolder(Server.MapPath(FolderPath))
   Set Fso=Nothing
  End If
'  Select Case Err     
'    Case 424 Response.Write("方卡错误提示:删除"&FolderPath&"文件夹时,路径未找到或者该目录没有写入权限!")
'  End Select
 End Function
 
 '==============================
 '函 数 名:DelFile
 '作    用:删除文件
 '参    数:文件相对路径FilePath
 '==============================
 Function DelFile(FilePath)
'  On Error Resume Next
  If IsFile(FilePath)=True Then
   Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
   Fso.DeleteFile(Server.MapPath(FilePath))
   Set Fso=Nothing
  End If
'  Select Case Err     
'    Case 424 Response.Write("方卡错误提示:删除"&FilePath&"文件时,路径未找到或者该目录没有写入权限!")
'  End Select
 End Function

热门栏目