关于VB中的CreateObject("Scripting.FileSystemObject") 方面

Question

Set fs = CreateObject("Scripting.FileSystemObject")
Set tf = fs.CreateTextFile(App.Path & "\Txt\" & Left(AscFileName, 16) & ".Txt", True)
我在VB的这种广面生成文件，在其它电脑上都可以用，但是在一台电脑中却提示:ActiveX部件不能创建对象请问这个怎么办啊？

Answer 1

如果是2000以上的话应该没问题的
如果是98/me机器上会有这样的问题，找到这个
C:\WINNT\system32\scrrun.dll在那台机器上注册
或者打包安装即可

Answer 2

你去那台电脑的winnt-system32下面找个文件scrrun.dll，看看有没有，如果没有就从可以执行这个程序的机器上拷贝相应的文件到winnt-system32下，然后在开始-运行中输入regsvr32 c:\winnt\system32\scrrun.dll如果文件夹下有该文件，就用regsvr32 c:\winnt\system32\scrrun.dll
重新注册下！这样应该就可以了

Answer 3

将一台可用机器上的scrrun.dll拷到有问题的机器上（system或system32目录下），然后在开始--运行---中用
regsvr32  c:\windows\system32\scrrun.dll
手工注册试试