too few|too many arguements

[ollie]

(defun FilCreate (Dir Ext / Name ent)
 (setq Name (vlax-get-property (vla-get-activedocument (vlax-get-acad-object))  "Name"))
 (setq Name (strcat Dir "\\" (substr Name 1 (- (strlen Name) 4)) "." Ext))
 (if(not(findfile Name))
   (progn
     (open Name)
     (close Name)
   )
 )
 (princ Name)
)

When i try to use the above code i recieve either too many or too few arguements depending on if i pass one or two parameters

 

EDIT::

 

Never mind folks stupidity was the source of the problem

 

I've edited the code

 

Thanks

Ollie