vbscript 如何弹出一个选择文件夹的对话框,可以选择文件

2009-01-13 10:27:49 1.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xiaoleichuangzi 墨衍会员 · AI 创作全网分发关注 + 加入社区

汇川Easy 301 和MCGS进行Modbus RTU通讯(485)浮点数读取和写入 4DF0001对应寄存器D0,4DF0003对应寄存器D2。注意：要选com2口，com1口是232通讯。阅读详情

请问vbscript如何能弹出一个选择文件夹的对话框,不是保存文件的document.execCommand哦,请问选择的路径和文件种类可以指定么?

...全文

芯片硅前验证技术与驱动工程师实战指南硅前验证是芯片开发流程中的关键环节，通过pre-silicon simulation等技术手段在流片前验证设计正确性。其核心技术包括软件仿真、FPGA原型验证和硬件仿真器解决方案，涉及Linux驱动开发、芯片架构理解和波形分析等核心技能。作为连接芯片设计与系统集成的桥梁，硅前验证能早期发现设计缺陷，节省数百万美元流片成本。以Cadence Palladium为代表的硬件仿真器，通过专用服务器系统实现比纯软件方案快100-1000倍的仿真速度，为驱动工程师提供完整的外设模型验证环境。掌握硅前验证技术可显著提升阅读详情

xiaoleichuangzi

vbScript 4,008 成员 3,512 内容

+ 关注 + 加入社区

切换为时间正序

Chishing Chan 2009-02-11

打赏
举报

不明白我的XPSP2系统打开例一、二会出错。例三可以的。

biweilun 2009-01-13

打赏
举报



在VBS脚本设计中，如果能使用windows提供的系统对话框，可以简化脚本的使用难度，使脚本人性化许多，很少有人使用，但VBS并非不能实现这样的功能，方法当然还是利用COM对象。



1、SAFRCFileDlg.FileSave对象：属性有：FileName — 指定默认文件名；FileType — 指定文件扩展名；OpenFileSaveDlg — 显示文件保存框体方法。



2、SAFRCFileDlg.FileOpen 对象：FileName — 默认文件名属性；OpenFileOpenDlg — 显示打开文件框体方法。



3、UserAccounts.CommonDialog对象：Filter — 扩展名属性（"vbs File|*.vbs|All Files|*.*"）；



FilterIndex — 指定



InitialDir — 指定默认的文件夹



FileName — 指定的文件名



Flags — 对话框的类型



Showopen方法：



很简单，ok，让我们来举两个简单的例子：



例一：保存文件



Set objDialog = CreateObject("SAFRCFileDlg.FileSave")



Set objFSO = CreateObject("Scripting.FileSystemObject")



objDialog.FileName = "test"



objDialog.FileType = ".txt"



intReturn = objDialog.OpenFileSaveDlg



If intReturn Then



objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)



Else



Wscript.Quit



End If



注意：1、SAFRCFileDlg.FileSave对象仅仅是提供了一个方便用户选择的界面，本身并没有保存文件的功能，保存文件还需要使用FSO对象来完成。2、用FileType属性来指定默认的文件类型。3、在调用OpenFileSaveDlg方法时，最好把返回值保存到一变量中，用它可以判断用户按下的是确定还是取消。



例二：.打开文件



set objFile = CreateObject("SAFRCFileDlg.FileOpen")



intRet = objFile.OpenFileOpenDlg



if intret then



msgbox “文件打开成功！文件名为：” & objFile.filename



else



wscript.quit



end if



例三：比较复杂的打开文件对话框



Set objDialog = CreateObject("UserAccounts.CommonDialog")



objDialog.Filter = "vbs File|*.vbs"



objDialog.InitialDir = "c:\"



tfile=objDialog.ShowOpen



if tfile then 



strLoadFile = objDialog.FileName



msgbox strLoadFile



else



wscript.quit



end if



说明：在脚本中加入 objDialog.Flags = &H020 看看会出现什么结果。

parss 2009-01-13

打赏
举报

好像可以哦，要写很长的代码，以前做过，现在不记得了

vbscript 如何弹出一个选择文件夹的对话框,可以选择文件

相关推荐