problemas con Server.MapPath al intentar borrar un archivo

[potenkin]

hola,
tengo un script que me sirve para hacer un listado de un directorio determinado, ver los archivos que hay en él, poder descargarlos y también borrarlos. Todo funciona bien menos la parte del borrado. no se borran, me da error y me indica:

error 800a0035', y
archivo no encontrado

por lo que deduzco que el error esta en el MapPath, el correcto es MapPath("arxius")


alguien podria ayudarme a localizar el error

salut

-----------------------------------------------------------------------

<%
ListFolderContents(Server.MapPath("arxius/"))
'tomo la variable del la url
deli = Request.QueryString("file")

If deli <> "" Then

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'borro file
objFSO.DeleteFile "Server.MapPath(arxius/)" & deli &"", False
Response.Redirect "prova.asp"
Else


sub ListFolderContents(path)

dim fs, folder, file, item, url

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

'delete function

'termino funcion delete

'Muestro la info de la carpeta (si quiero)

'Response.Write("<li><b>" & folder.Name & "</b> - " _
' & folder.Files.Count & " files, ")

'Response.Write(Round(folder.Size / 1024) & " KB total." _
' & vbCrLf)
'nothing there.. print
if folder.Files.Count = 0 then
Response.Write("<table border=""0"" cellspacing=""1"" cellpadding=""2""><tr><td>Este archivo no se ha subido.</td></tr></table>")
else
Response.Write("" & vbCrLf)

'Display a list of sub folders.
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
'Display a list of files.
Response.Write("<table border=""0"" cellspacing=""1"" cellpadding=""2"">")
Response.Write("<tr>")
Response.Write("<td>File Name</td>")
Response.Write("<td>File size</td> ")
Response.Write("<td>Revision Date</td>")
Response.Write("<td>Delete</td>")
Response.Write("</tr>")
for each item in folder.Files
url = MapURL(item.path)
nami = item.name
getDeleteLink = Server.Urlencode(item.name)
Response.Write("<tr><td><a href=""" & url & """ target=""_blank"">" & item.Name & "</a></td><td>" _
& item.Size & " (Bytes)</td>" _
& "<td>" & dateValue(item.DateLastModified) _
& "<td><a href=tupagina.asp?file=" & getDeleteLink & "> Delete this file </a>" _
& "</td>" _
& "</td></tr>" & vbCrLf)
next
Response.Write("</table>")
end if
end sub

function MapURL(path)

dim rootPath, url

'Convert a physical file path to a URL for hypertext links.

rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")

end function

end if %>
-----------------------------------------------------------------------

[u_goldman]

Código:

objFSO.DeleteFile "Server.MapPath(arxius/)" 

Sácale las comillas dobles alrededor de Server.Mappath y pónselas al interior del paréntesis:

Código:

objFSO.DeleteFile Server.MapPath("arxius/")

[Shiryu_Libra]

esta linea no se me afigura que deba ir asi

url = Right(path, Len(path) - Len(rootPath))

comenta esta parte

url = path 'Right(path, Len(path) - Len(rootPath))

mas lo que ya se te indico
sera:Pensando:?..... que falta.....

[potenkin]

gracias u_goldman,
el error es justamente en esa linea:
pero no funciona con las comillas ni de una manera ni de la otra

gracias también por contestar Shiryu_Libra