Vbs的SAFRCFileDlg.FileSave对象不能创建,怎么解决_vbScript

Vbs的SAFRCFileDlg.FileSave对象不能创建,如何解决?

VBScript code

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")Set objFSO = CreateObject("Scripting.FileSystemObject")objDialog.FileName = "test"objDialog.FileType = ".txt"intReturn = objDialog.OpenFileSaveDlgIf intReturn ThenobjFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)ElseWscript.QuitEnd If

如以上代码的，保存为vbs文件，运行时第一句出现错误，提示“ActiveX部件不能创建对象SAFRCFileDlg.FileSave”，同样的,SAFRCFileDlg.FileOpen,也不能创建。

哪位了解这个问题？如何解决？

------解决方案--------------------------------------------------------
system32目录下的safrcdlg.dll出问题了？