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 — 显示文件保存框体方法。