Question

VBS脚本运行错误，行11 字符7 没有权限 代码800A0046 各位高手寻求解答，先谢谢了。

我是想清楚服务器早于7天前的日志，下边是代码
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\Survu\CCFS\Log")
Set fc = f.Files
For Each f1 in fc
if f1.datecreated < now - 7 Then
fso.deletefile(f1)
End If
Next
补充一下，系统是Windows 2003的，这个脚本在另一台2003的系统上正常运行，但这台提示没有权限，请高手给予解答，在线等···

Answer 1

这台提示没有权限，就赋权限值给访问的用户即可。

fso.deletefile(f1) 是需要删除权限的。

最简单但不够安全的做法是，直接给 IIS匿名用户全部权限。

追问

你好，非常感谢，这个还能通过改代码来绕过权限吗？

追答

不能通过改代码来绕过权限。

当然，如果处理实际的物理文件，用数据库来管理，就可以不需要额外的权限。

追问

灰常感谢