今天试了下,不错,哈哈
公道不在人心,是非只在时势
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = "歌曲"
objDialog.FileType = ".lrc"
intRet = objDialog.OpenFileSaveDlg
If intRet Then
If InStr(objDialog.FileName,".") Then
WScript.Echo objDialog.FileName
Else
WScript.Echo objDialog.FileName & objDialog.FileType
End If
Else
WScript.Quit
End If