Dim hFs
Set hFs = CreateObject("Scripting.FileSystemObject")

hFs.DeleteFile("PATH-AL-FILE") ' x file
hFs.DeleteFolder("PATH-ALLA-CARTELLA") ' x cartelle