联盟域名: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