各位帮忙,郁闷了半天(fso)
qfacy 2005-01-05 01:07:18 Set fso=CreateObject("Scripting.FileSystemObject")
set getfso=fso.GetFolder("d:\1").SubFolders
for each rr in getfso
response.write rr & " 文件夹包含<p>"
set getfso1=fso.GetFolder(rr).files
for each n in getfso1
response.write n & "<br>"
next
next
上面代码可以用正常运行!但是把set getfso=fso.GetFolder("d:\1").SubFolders
改为以驱动器为目录的时候set getfso=fso.GetFolder(fso.getdrive("d:").rootfolder).SubFolders
就出现了如下的错误:
Microsoft VBScript 运行时错误 (0x800A0046)
/E/fso/Untitled-4.asp, 第 20 行
可能是rr变量的问题!
我把d盘符
右键-属性-安全选项卡-添加-择IUSR_自己-点IUSR_自己,把权限全部打上钩了还是出现问题!
为什么!?郁闷了半天!请各位高手帮忙!小弟在此感谢了!