判断是否支持FSO问题 - ASP技术论坛

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 判断是否支持FSO问题

标题：判断是否支持FSO问题

只看楼主

caiyakang

等　级：新手上路
威　望：5
帖　子：2111
专家分：0
注　册：2005-3-24

楼主

问题点数：0 回复次数：3

判断是否支持FSO问题

On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject("Scripting.FileSystemObject")
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
Response.Write (IsObjInstalled)
%>
这是判断是否支持FSO
帮我解释一下什么意思！！，
谢谢！！

[此贴子已经被作者于2005-12-5 21:27:17编辑过]

搜索更多相关主题的帖子: FSO　FONT　Set　xTestObj　Err　

2005-12-05 21:10

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 2 楼

得分:0

以下是引用caiyakang在2005-12-5 21:10:00的发言：

On Error Resume Next'错误处理语句此语句的意思是遇到错误时不报错继续执行。
IsObjInstalled = False'判断是否支持的变量
'Err = 0'这里好像有些错误，判断程序是否出错应该用Err对象的.Number属性来判断这句多余
Dim xTestObj
Set xTestObj = Server.CreateObject("Scripting.FileSystemObject")'创建FSO对象
If 0 = Err Then IsObjInstalled = True'这句应该改成if Err.Number=0 Then IsObjinstalled=True
Set xTestObj = Nothing'析构释放掉创建的FSO对象所占用的内存空间
Err = 0'多余语句Err.Number就可以判断了。
Response.Write (IsObjInstalled)'输出判断结果
%>