Il ciclo funziona perfettamente

infatti se commento solo le due righe

set fobj=fso.getfile(PathSorgente) fobj.delete

non ho nessun problema

il ciclo è del tipo

for (i=0 to ubound(ArrNomiFile))

if (condizione=qualcosa) then

RelPath="/cartella"
TxPath=Server.MapPath(RelPath)
PathSorgente= TxPath & "\" & ArrNomiFile(i)
if fso.fileexists(PathSorgente) then
set fobj=fso.getfile(PathSorgente)
fobj.delete
end if
else
scrivi ArrNomiFile(i)
end if

next