中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [求助]VBS的保存对话框 上一主题 | 下一主题
77720666
初级用户





积分 59
发帖 46
注册 2007-4-10
状态 离线
『楼 主』:  [求助]VBS的保存对话框

这段代码网上找的~
为什么2000和XP不能运行~只有2003才能运行
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = "test"
objDialog.FileType = ".TXT"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
msgbox objDialog.FileName & objdialog.filetype
Else
Wscript.Quit
End If


2008-11-11 22:42
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

UserAccounts.CommonDialog



S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2008-11-11 23:33
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 3 楼』:  

XP SP2测试你的代码也可以用...



S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2008-11-11 23:35
查看资料  发短消息 网志   编辑帖子  回复  引用回复
77720666
初级用户





积分 59
发帖 46
注册 2007-4-10
状态 离线
『第 4 楼』:  



  Quote:
Originally posted by slore at 2008-11-11 11:35 PM:
XP SP2测试你的代码也可以用...

我电脑就是XP SP2的~
运行弹出如图片提示~
我用的是精简版的系统~难道被精简掉了~~~~`
那有什么解决办法?

附件 1: 未命名.JPG (2008-11-12 00:26, 14.33 K)


2008-11-12 00:16
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 5 楼』:  

C:\WINDOWS\system32\safrcdlg.dll
存在么?

如果存在,运行
regsvr32 safrcdlg.dll看看。

   此帖被 +2 点积分    点击查看详情   
评分人:【 77720666 分数: +2  时间:2008-11-13 09:07




S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2008-11-12 13:00
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: