Vbs脚本编程简明教程之十二

Vbs 脚本编程简明教程之十二 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

使用系统对话框

 

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  看看会出现什么结果









本文转自 chengchow 51CTO博客,原文链接:http://blog.51cto.com/chengchow/886810,如需转载请自行联系原作者
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值