
CODE: [Copy to clipboard]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
| Quote: | |
|
附件 1:未命名.JPG (2008-11-12 00:26, 14.33 K)
![]()
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |