DeleteFile - vil ikke som jeg vil

Hvorfor fejler linien "objFSO.DeleteFile(fil)" Webbrugeren har fuld rettighed på filsystemet

<%
  sql = "select * from design_fotofil where ff_id = " & request.querystring("ff_id")
  rs.open sql, conn, 1, 3, 1
    vir_navn = rs("ff_vir_navn")
    foto_id = rs("ff_foto_id")
  rs.close
 
  'sletter filen fysisk på disken
  set objFSO = createObject("scripting.FileSystemObject")
  fil = Server.MapPath("/intern/design/filer/arkiv/" & vir_navn)
  if objFSO.FileExists(fil) then
    objFSO.DeleteFile(fil)
  end if
  Set ObjFSO = Nothing
%>