进口护肤品批发市场:vbscript如何能弹出一个选择文件夹的对话框

来源：百度文库编辑：九乡新闻网时间：2024/04/28 04:13:06

在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.OpenFileSaveDlgIf intReturn ThenobjFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)ElseWscript.QuitEnd If注意：1、SAFRCFileDlg.FileSave对象仅仅是提供了一个方便用户选择的界面，本身并没有保存文件的功能，保存文件还需要使用FSO对象来完成。2、用FileType属性来指定默认的文件类型。3、在调用OpenFileSaveDlg方法时，最好把返回值保存到一变量中，用它可以判断用户按下的是确定还是取消。例二：.打开文件set objFile = CreateObject("SAFRCFileDlg.FileOpen")intRet = objFile.OpenFileOpenDlgif intret thenmsgbox “文件打开成功！文件名为：” & objFile.filenameelsewscript.quitend if例三：比较复杂的打开文件对话框Set objDialog = CreateObject("UserAccounts.CommonDialog")objDialog.Filter = "vbs File|*.vbs"objDialog.InitialDir = "c:\"tfile=objDialog.ShowOpenif tfile then strLoadFile = objDialog.FileNamemsgbox strLoadFileelsewscript.quitend if说明：在脚本中加入 objDialog.Flags = &H020 看看会出现什么结果。

vbscript如何能弹出一个选择文件夹的对话框如何去掉系统弹出的"windows 文件保护"提示无法识别的版本对话框 CFileDialog文件选择对话框的使用如何建一个别人既不能进入又不能删除的文件夹1 如何建一个别人打不开的文件夹如何创建一个别人打不开也删不掉的文件夹- Windows7专区：既减少弹出的对话框，又保证系统安全，Windows 7是怎么做到的？ IE弹出“是否允许该页从您的剪贴板粘贴信息”对话框问题的解决方案总是弹出Windows Installer对话框解决方案如何阻止电脑一些广告的弹出? 如何阻止电脑一些广告的弹出? 如何阻止电脑一些广告的弹出? 如何在电脑里建一个别人打不开的文件夹？如何在电脑里建一个别人打不开的文件夹？如何在电脑里建一个别人打不开的文件夹？如何在电脑里建一个别人打不开的文件夹？如何在电脑里建一个别人打不开的文件夹？如何在电脑里建一个别人打不开的文件夹？【技巧】如何建一个别人打不开的文件夹？如何在电脑里建一个别人打不开的文件夹电脑技术：如何创建一个别人无法打开的文件夹 VC选择文件对话框CFileDialog 如何选择一个好的引路人！ VBScript的对象操作方法