您当前的位置: - VBScript code
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = "test"
objDialog.FileType = ".txt"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
End If
如以上代码的，保存为vbs文件，运行时第一句出现错误，提示“ActiveX部件不能创建对象SAFRCFileDlg.FileSave”，同样的,SAFRCFileDlg.FileOpen,也不能创建。
哪位了解这个问题？如何解决？
------解决方案--------------------
system32目录下的safrcdlg.dll出问题了？