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


顶，求高手解答

[code=VBScript][/code]
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

给来宾帐号修改操作

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

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