(defun c:archivedwg ( / archivename)
	(if (not (member "_Sicherung" (vl-directory-files (getvar "dwgprefix") nil -1)))
		(vl-mkdir (strcat (getvar "dwgprefix") "_Sicherung"))
	);if
	(setq archivename (strcat (getvar "dwgprefix") "_Sicherung\\" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) "_" (rtos (getvar "cdate") 2 4) ".dwg"))
	(if (findfile archivename)
		(alert (strcat "Archive file already exist!\n\n" archivename))
		(progn
			(princ (strcat "\nArchiving: " archivename "\n"))
			(command "._save" archivename)
		);progn
	);if
(princ)
);defun