If statement

[IXOYE]

I am having problems with if statement in my routine. I want to simply want the user to choose
if they wnt to create a new folder or not. The routine works but the response I is not what I want. It is
suppose to say ""Folder Does Not Exists! Do You Want to Create a New Folder?" if the folder was not found.
Or, ""Folder Aready Exists!" if it does find the folder. Instead it gives me both messages one after the other.
What am I doing wrong?

------------

 (defun C:MkFoldr (\Foldr1 JobNo FoldrName PathName ChkFoldr)
    (setq Foldr1
    (dos_getdir
      "Create new CAD Library Folder"
      "J:\\WMSP\\"
      "Select destination for the folder"
    )
    )
    (dos_chdir Foldr1)
    (setq JobNo
    (dos_editbox "Editor" "Enter Job Number" "XXXXX")
    )
    (setq FoldrName (strcat JobNo "-CAD Library"))
    (setq PathName (strcat Foldr1 FoldrName))
    (setq Chkfoldr
    (dos_dirp PathName)
    )                                                                 ;;this work ok to this point
    (if (= chkfoldr nil)
      (progn
 (setq yes
        (dos_msgbox
   "Folder Does Not Exists! Do You Want to Create a New Folder?"
   "CAD Library Folder"
   4
   3
        )
 )
 (if (= yes 6)
   (dos_mkdir PathName)
 )
      (progn
 (setq yes 
        (dos_msgbox
          "Folder Aready Exists!"
          "CAD Library Folder"
          1
          3
        )
        )
      )
    )
  )

-----------------

[JaCAD]

There was a parenthesis mis-match in (if (= chkfoldr nil)...

Try the following:

(defun C:MkFoldr (\Foldr1 JobNo FoldrName PathName ChkFoldr)
  (setq Foldr1
	 (dos_getdir
	   "Create new CAD Library Folder"
	   "J:\\WMSP\\"
	   "Select destination for the folder"
	   )
	);end setq

  (dos_chdir Foldr1)
  (setq JobNo
	 (dos_editbox "Editor" "Enter Job Number" "XXXXX")
	);end setq

  (setq FoldrName (strcat JobNo "-CAD Library"))
  (setq PathName (strcat Foldr1 FoldrName))
  (setq Chkfoldr
	 (dos_dirp PathName)
	) ;;this work ok to this point

  (if (= chkfoldr nil)
    (progn
      (setq yes
	     (dos_msgbox
	       "Folder Does Not Exists! Do You Want to Create a New Folder?"
	       "CAD Library Folder"
	       4
	       3
	       );end dos_msgbox
	    );end setq
      
      (if (= yes 6)
	(dos_mkdir PathName)
	);end if
      );end progn

    (progn
      (setq yes
	     (dos_msgbox
	       "Folder Aready Exists!"
	       "CAD Library Folder"
	       1
	       3
	       );end dos_msgbox
	    );end setq
      );end progn
    );end if
  (princ)
  );end defun

[fixo]

First line might be like this:

(defun C:MkFoldr ( /  Foldr1 JobNo FoldrName PathName ChkFoldr)

bad copy-paste reason i think
Regards,

~'J'~