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