QTP中VBS脚本下FSO、WSH的应用——实例讲解(续)

简介:

'*************************************************************'

'函数/过程名称:CreatFile()
'函数/过程的目的:保存文件并打开
'假设:无
'影响:
'输入:无
'返回值:无
'创建者:lee
'创建时间:2010/12/11
'修改者:
'修改原因:
'修改时间:
'SAFRCFileDlg.FileSave对象:属性有:
'FileName — 指定默认文件名;
'FileType — 指定文件扩展名;
'OpenFileSaveDlg — 显示文件保存框体方法。
'*************************************************************'

Function CreatFile(FileName)
    Dim objDialog,objFSO,objOpen,ws
        Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objDialog.FileName = FileName
        objDialog.FileType = ".doc"
        intReturn = objDialog.OpenFileSaveDlg
    If intReturn Then
        objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)
    Else
         Wscript.Quit
    End If
        GetTheBase = objFSO.GetAbsolutePathName(objDialog.FileName) 
        'MsgBox GetTheBase & objdialog.filetype
        set ws=wscript.createobject("Wscript.shell")
        ws.run GetTheBase & objdialog.filetype
        wscript.Sleep 2000
End Function
Call CreatFile(FileName)

 

 运行以上脚本,能够创建一个03格式的word文档,并打开该word文档。

 注意:不能保存到含中文的路径下,因为GetTheBase获得的路径中如果包含中文路径,WS.Run 运行不通过

 

SAFRCFileDlg.FileSave对象:属性有:

  • FileName  指定默认文件名;
  • FileType  指定文件扩展名;
  • OpenFileSaveDlg  显示文件保存框体方法。

















本文转自hblxp32151CTO博客,原文链接:http://blog.51cto.com/starpoint/585055 ,如需转载请自行联系原作者
相关文章
|
数据安全/隐私保护
|
XML 数据安全/隐私保护 数据格式
vbs和qtp一些脚本
********************************************************************************************** 用vbs调qtp '编写自动执行指定的QTP脚本的VBS:'利用QTP本身的Quicktest.
1093 0
VBS脚本实例
一、一键升级哨位台核心板程序脚本。 ############################################################ Set ws=WScript.CreateObject("wscript.
810 0
VBS基础篇 - VBScript过程
VBS基础篇 - VBScript过程     在 VBScript 中,过程被分为两类:Sub 过程和 Function 过程。  Sub过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句。
882 0