vb中Scripting.FileSystemObject'怎么添加对象?

答案:2 悬赏:0 手机版

解决时间 2021-03-10 06:18

提问者网友：温柔港
2021-03-10 00:37

Private Sub Command1_Click()
Set FSO = server.CreateObject("scripting.FileSystemObject")
For I = 68 To 90
If FSO.DRIVEEXISTS(Chr(I)) Then
If (FSO.GETDRIVETYPE.DRIVETYPE = 1) Then
MsgBox Chr(I), 64
End If
End If
Next I
End Sub
运行时显示”要求对象“，这是怎么回事？请高手说说，先谢谢啦

最佳答案

五星知识达人网友：不甚了了
2021-03-10 00:54

点菜单(工程)下的(引用),勾选(Microsoft Scripting Runtime)确认.再在用FSO前声明
Dim FSO As New Filesystemobject
也可以用你习惯方法CreateObject

全部回答

1楼网友：洎扰庸人
2021-03-10 01:24

这个是需要浏览器开权限的。找到对应的浏览器级别的安全设置里边的“对未标记为可安全执行脚本的activex控件进行初始化”一项修改为启用即可。如果为了保险的话，可以把internet、我的电脑、受信任区域的值都修改一下。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息