这段代码网上找的~
为什么2000和XP不能运行~只有2003才能运行
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = "test"
objDialog.FileType = ".TXT"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
msgbox objDialog.FileName & objdialog.filetype
Else
Wscript.Quit
End If