FSO权限的问题

[昵称无法识别]

Dim filepath
filepath=Server.Mappath("upload") & "/" & Request.QueryString("filename")

'创建一个文件上传组件实例
Set fso=Server.CreateObject("Scripting.FileSystemObject")
IF fso.FileExists(filepath)=True Then
fso.DeleteFile filepath
End If
'同时删除由xls文件生成的htm文件以及表单文件夹
dim i
i=instrrev(filepath,".")
prefix=left(filepath,i-1)
IF fso.FileExists(prefix&".htm")=True Then
fso.DeleteFile prefix&".htm"
End If
IF fso.FolderExists(prefix&".files")=True Then
fso.DeleteFolder prefix&".files"
End If
很奇怪，第一个deleteFile可以实现，第二个就出现问题了，说是么有权限，求解~~
直接目录里可以删除~~~

[昵称无法识别]

Dim filepath
filepath=Server.Mappath("upload") & "/" & Request.QueryString("filename")

'创建一个文件上传组件实例
Set fso=Server.CreateObject("Scripting.FileSystemObject")
IF fso.FileExists(filepath)=True Then
fso.DeleteFile filepath
End If
'同时删除由xls文件生成的htm文件以及表单文件夹
dim i
i=instrrev(filepath,".")
prefix=left(filepath,i-1)
IF fso.FileExists(prefix&".htm")=True Then
fso.DeleteFile prefix&".htm"
End If
IF fso.FolderExists(prefix&".files")=True Then
fso.DeleteFolder prefix&".files"
End If


顶，求高手解答

[昵称无法识别]

Dim filepath
filepath=Server.Mappath("upload") & "/" & Request.QueryString("filename")

'创建一个文件上传组件实例
Set fso=Server.CreateObject("Scripting.FileSystemObject")
IF fso.FileExists(filepath)=True Then
fso.DeleteFile filepath
End If
'同时删除由xls文件生成的htm文件以及表单文件夹
dim i
i=instrrev(filepath,".")
prefix=left(filepath,i-1)
IF fso.FileExists(prefix&".htm")=True Then
fso.DeleteFile prefix&".htm"
End If
IF fso.FolderExists(prefix&".files")=True Then
fso.DeleteFolder prefix&".files"
End If

[md5e]

给来宾帐号修改操作

[昵称无法识别]

老大什么意思？能不能详细点？

[李睿_Lee]

检查下所要删除的文件的文件名对不？存在不？

[昵称无法识别]

[Quote=引用 5 楼 novolee 的回复:]
检查下所要删除的文件的文件名对不？存在不？
[/Quote]
是存在的，我可以肯定，系统提示说无权限

[md5e]

网站文件夹->右键属性->安全，添加用户，高级，查找，下边选IUSER_xxxx（来宾帐号）然后给他完全控制权限