filesystemobject怎么用微软的Filesystemobject 返回一个目录下的所有目录和文件

怎么让电脑支持Scripting.FileSystemObject对象？

ActiveXObject("Scripting.FileSystemObject") 我之前也用过这个对象 在本地读取文件是可以，但是到服务器上就不支持了。

是因为js读取不安全引起，建议不要使用。

ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'怎么解决？

（VBS）ActiveX 部件不能创建对象: Scripting.FileSystemObject2009-12-03 17:37错误描述：服务器没有启动FSO支持解决方法：开启/关闭系统FSO支持方法 windows98系统 在DOS命令行状态输入以下命令： 关闭命令：RegSvr32 /u C:WINDOWSSYSTEMscrrun.dll 打开命令：RegSvr32 C:WINDOWSSYSTEMscrrun.dll win2000系统： 在CMD命令行状态输入以下命令： 关闭命令：RegSvr32 /u C:WINNTSYSTEM32scrrun.dll 打开命令：RegSvr32 C:WINNTSYSTEM32scrrun.dll 我的设置步骤：IIS中“属性”--目录安全性--匿名访问和验证控制--编辑---匿名访问--编辑--用户名：Administrator--允许IIS控制密码前打勾 win2003 运行regsvr32 scrrun.dll即可。

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

怎么用微软的Filesystemobject 返回一个目录下的所有目录和文件

Procedure Get_Directory(path:string);var FindFileData : TWin32FindData; SearchHandle : THandle; folder,files : WideString; temp : String;begin SetCurrentDirectory(PChar(path)); searchhandle:=findfirstfile('*.*',findfiledata); if (SearchHandle <> INVALID_HANDLE_VALUE) then repeat if ((findfiledata.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)<>0) then begin temp:=findfiledata.cFileName; if ((temp<>('.')) and (temp<>('..'))) then folder:=folder+findfiledata.cFileName+''; end else begin files:=files+findfiledata.cFileName+'/'; end; until (FindNextFile(SearchHandle,FindFileData) = FALSE) else begin files无'; folder无' end; Windows.FindClose(SearchHandle);end;