标题: [求助]VBS的保存对话框 [打印本页]
作者: 77720666 时间: 2008-11-11 22:42 标题: [求助]VBS的保存对话框
这段代码网上找的~
为什么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
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
作者: slore 时间: 2008-11-11 23:33
UserAccounts.CommonDialog
作者: slore 时间: 2008-11-11 23:35
XP SP2测试你的代码也可以用...
作者: 77720666 时间: 2008-11-12 00:16
| Quote: | |
|
我电脑就是XP SP2的~
运行弹出如图片提示~
我用的是精简版的系统~难道被精简掉了~~~~`
那有什么解决办法？
附件 1:未命名.JPG (2008-11-12 00:26, 14.33 K)
作者: slore 时间: 2008-11-12 13:00
C:\WINDOWS\system32\safrcdlg.dll
存在么？
如果存在，运行
regsvr32 safrcdlg.dll看看。