Does any one have a lisp rotuine to get rid of all acad log files and .bak files?
similar to this?
; Cleans up the undo and redo temp files
(defun c:CleanTemp nil
;; delete all UND* and RED* temp files
(foreach x (vl-directory-files (getvar 'tempprefix))
(and (wcmatch (strcase x) "UND*,RED*")
(vl-catch-all-apply (function vl-file-delete) (list (strcat (getvar 'tempprefix) x)))
)
)
(princ)
)
thank you in advance....