中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-10 07:58

欢迎新会员 zhichenwen　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 2 篇 / 48,255 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]VBS的保存对话框查看 784　回复 4

楼主 [求助]VBS的保存对话框发表于 2008-11-11 22:42　·　中国广东广州天河区电信

77720666

初级用户

★

积分 59
发帖 46
注册 2007-04-10 00:25
19年会员
UID 84529
性别男

状态离线

这段代码网上找的~
为什么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