ActiveX 部件不能创建对象: 'scrīpting.FileSystemObject'

026300

使用了一段代码：
Function ShowFolderList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("scrīpting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name
      s = s & "<BR>"
   Next
   ShowFolderList = s
End Function

但运行时提示：
ActiveX 部件不能创建对象: 'scrīpting.FileSystemObject'
Line (13): "Set fso = CreateObject("scrīpting.FileSystemObject")".

使用了网上提供的重新注册scrun.dll和在注册表的scrīpting.FileSystemObject中增加everyone和guest的权限并重启IIS，都没有成功（还专门装了个IIS），急求解决方法

026300

Set fso = CreateObject("scrīpting.FileSystemObject")
你这个CreateObject("scr 后面的那个字母是啥啊， ...
lifreshman0626 发表于 2012-5-4 09:40

我倒，还真是这个问题，多谢多谢

lifreshman0626

Set fso = CreateObject("scrīpting.FileSystemObject")
你这个CreateObject("scr 后面的那个字母是啥啊，应该是字母i，下面的代码即可
Set fso = CreateObject("scripting.FileSystemObject")