Question

VB CreateObject("Scripting.FileSystemObject") 异常

2000 的可以 xp 不行 是不是要装什么

Answer 1

看引用列表里能不能找到，Microsoft Scripting Runtime

检查文件是否存在：C:\WINDOWS\system32\scrrun.dll

引用之后，使用以下代码

Dim fso As Scripting.FileSystemObject

Set fso = New Scripting.FileSystemObject

'fso.xxxx

Set fso = Nothing

Answer 2

可能是禁用了FSO(FileSystemObject)，你可以用导致权限控制的问题，
FSO启用方法

1、首先在系统盘中查找scrrun.dll，如果存在这个文件，请跳到第三步，如果没有，请执行第二步。

2、在安装文件目录i386中找到scrrun.dl_，用winrar解压缩，得scrrun.dll，然后复制到x（你的系统盘）:\windows\system32\目录中。

3、运行regsvr32 scrrun.dll即可。

4、如果想关闭FSO组件，请运行regsvr32 /u scrrun.dll即可。

在 开始－"运行"中执行regsvr32.exe scrrun.dll即可。

如果已经启用还是不行，那就试下
Set fso = server.CreateObject("Scripting.FileSystemObject")