这是我在学习过程中写的一个类。
<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>
分享到:
相关推荐
代码包括两部分:一是按键控制,二是Vince步进电机控制。按键控制包括按键的消抖和边缘检测;步进电机控制包括串口发送数据,可以是实现32数据转8位数据的发送。
这个开发库使用了几何平均来计算最优 F,根据 Ralph Vince 的论述, "在交易中,我们可能对盈利的次数和亏损的次数做出不同的计数,所以, Kelly 公式无法给我们最优 f." 所以, 使用他的公式, 我创建了这个开发库, 用于...
系统工具-文件下载-米刷机工具箱(Vince Tools By Damron) v2.0.1免费版.zip
Vince - Geometry for Computer Graphics Vince - Geometry for Computer Graphics Vince - Geometry for Computer Graphics
小米Redmi 5 Plus(vince)的设备树规格表特征规格中央处理器八核2.0 GHz Cortex-A53芯片组高通MSM8953金鱼草625显卡阿德雷诺506记忆3/4 GB搭载Android版本7.1.2贮存32/64 GB微型SD最高256 GB电池4000 mAh(不可拆卸...
小米Redmi 5 Plus(vince)的设备树 规格表 特征 规格 中央处理器 八核2.0 GHz Cortex-A53 芯片组 高通MSM8953金鱼草625 显卡 阿德雷诺506 记忆 3/4 GB 搭载Android版本 7.1.2 贮存 32/64 GB 微型SD 最高256 ...
视频噪声对比估计(VINCE) 这是一个包含用于实现本文中的模型的代码的存储库( )。 环境设定 我们建议使用Anaconda来管理您的环境设置并运行我们的代码。 以下命令将以最低的要求创建与我们的环境相似的环境。 ...
ICA_inter_network_connectivity_by_Vince_Calhoun2011.m
本书描述了几何代数基础知识,并对基本的应用给出了具体例子。
用wince开发的触摸贪吃蛇程序,工程基于S3C2440。
ERP信息化系统:SD401_Compliance Management in GTS_Feb_28_2016_Vince_Final20160229最新版本.pptx
vince702.github.io
vince-demo
Redmi 5 & Redmi 5 Plus 自定义ROM
小米Redmi 5 Plus(vince)的设备树 规格表 特征 规格 中央处理器 八核2.0 GHz Cortex-A53 芯片组 高通MSM8953金鱼草625 显卡 阿德雷诺506 记忆 3/4 GB 搭载Android版本 7.1.2 贮存 32/64 GB 微型SD 最高256 ...
android_kernel_xiaomi_vince
Vince的CSV解析器动机文档集成C ++版本单头CMake指令功能和示例读取大文件(带有迭代器)按列编制索引Nam Vince的CSV解析器的动机文档集成C ++版单头CMake指令功能和示例读取大文件(带有迭代器)按列名称建立索引...
Orange-Fox-For-Vince-R
Dark-Knight-kernel_xiaomi_vince