28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lihua9666 2003-09-25
- 打赏
- 举报
谢谢大家的帮忙问题已解决
lihua9666 2003-09-25
- 打赏
- 举报
zanpo(冰王子)邮件无法接收，麻烦您在发一次
zanpo 2003-09-25
- 打赏
- 举报
已发送，请查收
你要降低浏览器的安全级别
就可以创建ActiveX对象了！
你要降低浏览器的安全级别
就可以创建ActiveX对象了！
lihua9666 2003-09-25
- 打赏
- 举报
我用的是这样的呀
<script LANGUAGE =VBScript>
set fs=createobject("scripting.filesystemobject")
....
</script>
但提示我“ActiveX部件不能创建对象：scripting.filesystemobject”
<script LANGUAGE =VBScript>
set fs=createobject("scripting.filesystemobject")
....
</script>
但提示我“ActiveX部件不能创建对象：scripting.filesystemobject”
lihua9666 2003-09-25
- 打赏
- 举报
谢谢，我的email:lihua9666@sina.com
pp4u 2003-09-25
- 打赏
- 举报
例如：
<script LANGUAGE =VBScript>
set fs=createobject("scripting.filesystemobject")
mysubfolder="C:\RiseOffice\DownLoadDocuments\"
MyFolder="C:\RiseOffice\"
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
else
If NOT fs.folderexists(MysubFolder) then
fs.createfolder(MysubFolder)
end if
End If
If fs.folderexists(MyFolder) then
Else
msgbox "There has been an error."
End If
<script LANGUAGE =VBScript>
set fs=createobject("scripting.filesystemobject")
mysubfolder="C:\RiseOffice\DownLoadDocuments\"
MyFolder="C:\RiseOffice\"
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
else
If NOT fs.folderexists(MysubFolder) then
fs.createfolder(MysubFolder)
end if
End If
If fs.folderexists(MyFolder) then
Else
msgbox "There has been an error."
End If
zanpo 2003-09-25
- 打赏
- 举报
你的E-mail
给你发个例子
给你发个例子
甘泉123 2003-09-25
- 打赏
- 举报
有点象病毒了~！
