'*************************************************************'
'函数/过程名称：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 — 显示文件保存框体方法。