以下是一个过程的代码：
sub DelFiles(strUploadFiles)
if strUploadFiles="" then exit sub
if DelUpFiles="Yes" and ObjInstalled=True then
dim fso,arrUploadFiles,i
Set fso = CreateObject("Scripting.FileSystemObject")
if instr(strUploadFiles,"|")>1 then
arrUploadFiles=split(strUploadFiles,"|")
for i=0 to ubound(arrUploadFiles)
if fso.FileExists(server.MapPath("" & arrUploadfiles(i))) then
fso.DeleteFile(server.MapPath("" & arrUploadfiles(i)))
end if
next
else
if fso.FileExists(server.MapPath("" & strUploadfiles)) then
fso.DeleteFile(server.MapPath("" & strUploadfiles))
end if
end if
Set fso = nothing
end if
end sub
这是一个删除服务器上的文件的过程，但当我运行的时候却出现以下错误：
Server.MapPath() 错误 'ASP 0214 : 80004005' 
无效路径参数 
路径参数超过了最大允许长度。 

请大侠们指点。谢谢。有点急。