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

non puoi sostituirle con

fobj.DeleteFile(PathSorgente)