블럭을 간단하게 만드는 리습을 사용하고있습니다만, 같은 파일명이 있을때 정지해버립니다.

제목처럼 블럭을 쉽게 저장하는 리습을 사용하고있습니다.
다만, 블럭을 저장하려고 할 때 이미 같은 이름의 파일이 있을때가 문제입니다.
파일명을 검색해서 같은 이름의 파일이 있을때 경고문을 보내거나, 끝부분에 숫자를 붙여서 저장하고싶습니다. 여러 고수님들의 도움 부탁드립니다.
아래에 사요하고있는 리습의 내용을 붙입니다.
;—————————————————-
(defun c:ww(/ $entset $bname $p1 $day $time $sec) ; eazy wblock
 (setq $entset (ssget))
 (setq $bname (getstring “블럭 이름을 입력해주십시오. 미입력시 임의지정하게 됩니다.”));end_setq
   
 (if  (= $bname “”)
    (setq $bname (rtos (getvar “cdate”) 2 6)
       $year (substr $bname 1 4)
       $day (substr $bname 5 4)
       $time (substr $bname 10 4)
       $sec (substr $bname 14 2)
       $bname (strcat $year ” ” $day ” ” $time ” ” $sec)
    );end_setq
 );end_if
 (setq $bname (strcat (getvar “dwgprefix”) $bname))
 (setq $p1 (getpoint “nBase point Click :”))
 (command “wblock” $bname “” $p1 $entset “”)
 (command “-insert” $bname $p1 1 1 0)
)