acad.lsp file mysteriously showing up in folders

[Ehsan]

OK regarding the same topic which is not concluded i have a file with the name acadappp.lsp with three P any how now it is clear that it is a virus than let us resolve this problem and how can we avoid this and rectify this.
thanks

[Ehsan]

I am using this function to delete the files but some time it is deleted and some it is not also can i know from where this files are generated.

thanks

(defun cleanvirus( / lspfiles lspfile x)
(setq lspfiles '("acad.mnl" "acadappp.lsp" "acad.lsp" ))
(foreach lspfile lspfiles
(while (setq x (findfile lspfile))
(progn
(vl-file-delete x)
(princ "\nDeleted file ")
(princ x)
);progn
);while
);foreach
)
(cleanvirus)

Kulfi