当前位置:首页 开发语言 正文

文件删除的类(原创)

2011年06月06日 | 作者: 米豆网 - 1000seo | 分类: 开发语言 | 

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

<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>

本文固定链接:http://www.1000seo.com/soft/124
本文章由 米豆网 - 1000seo 于2011年06月06日发布在开发语言分类下,您可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
+复制链接 转载请注明:文件删除的类(原创)-米豆网
关键字:, ,

好文章就要一起分享!

更多

发表评论

你的大名(必填)

你的邮箱(必填)

你的网站(选填)

评论内容(必填)

😉 😐 😡 😈 🙂 😯 🙁 🙄 😛 😳 😮 mrgreen.png 😆 💡 😀 👿 😥 😎 ➡ 😕 ❓ ❗