文件删除的类（原创 vince6799）

最新推荐文章于 2024-04-30 08:30:24 发布

vinceding

最新推荐文章于 2024-04-30 08:30:24 发布

阅读量1.3k

点赞数

分类专栏： ASP 文章标签： class function vbscript file email server

本文链接：https://blog.csdn.net/vince6799/article/details/504216

版权

ASP 专栏收录该内容

40 篇文章 0 订阅

订阅专栏

这是我在学习过程中写的一个类。

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'''''''''''''''''''文件删除类''''''''''''''''''''
''版本：V1.0                                   ''
''作者：Vince                                  ''
''email:vince6799@hotmail.com                  ''
''时间：2005-6-19                              ''
''用法：实例.Del_File(文件路径)                ''
''Set delfile=NEW DelFile_class                ''
''文件路径:文件的物理路径                      ''
''返回值：                                     ''
''-1:文件删除成功                              ''
''1:FSO组件不存在                              ''
''2:指定文件不存在                             ''
''3:指定文件无法删除                           ''
''desi:描述信息                                ''
'''''''''''''''''''''''''''''''''''''''''''''''''
class DelFile_class
Dim Version,verr,desi
Private Sub Class_Initialize
Version = "文件删除类 V1.0"
verr="-1"
desi=""
End Sub
Private Sub Class_Terminate
verr="-1"
End Sub
Private function getFileName(sFilePath)
getFileName=right(sFilePath,instrRev(sFilePath,"/")-1)
end function
public function Del_File(sFilePath)
On Error Resume Next
dim oFSO
set chk=new Check_Obj_class
if chk.IsObjInstalled("Scripting.FileSystemObject")=true then
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(sFilePath) Then
  oFSO.DeleteFile sFilePath,true
  if 0=err then
   verr="-1" '文件删除成功
   desi=getFileName(sFilePath)&"文件删除成功"
  else
   verr="3" '指定文件无法删除
   desi=getFileName(sFilePath)&"文件无法删除"
  end if
else
  verr="2" '指定文件不存在
  desi=getFileName(sFilePath)&"文件不存在"
End If
set oFSO=nothing
else
verr="1" 'FSO组件不存在
desi="FSO组件不存在"
end if
Del_File=verr
end function
end class

''''''''''检测服务器是否支持某一对象类'''''''''''
''版本：V1.0                                   ''
''作者：Vince                                  ''
''email:vince6799@hotmail.com                  ''
''时间：2005-6-19                              ''
''用法：实例.IsObjInstalled(对象名)            ''
''Set chk=NEW Check_Obj_class              ''
''对象名:检测的对象名称                        ''
''返回值：                                     ''
''true:支持                                    ''
''false:不支持                                 ''
'''''''''''''''''''''''''''''''''''''''''''''''''
class Check_Obj_class
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
end class
</SCRIPT>