Lisp to Save dwg file to specific folder with date

Hi Everyone

I have a folder on (E:\Orders 22-Aug-2017) this path.This folder will be created daily for respective date by Excel.

Need lisp to automatically find the folder with today date on that path and saved it automatically.

Anyone help me to this.

Thanks in advance.

You can get the DATE via lisp so can not see any real problems in finding E:\Orders date etc. Search DATE for various output dd/mm/yy etc.

Hi Bigal

Thanks for your reply..but i can't understand.. Please can you create the lisp for that...

(defun c:SaveToDateFolder ( / doc fld fnm)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (setq fld
   (strcat
     "E:\\Orders "
     ;; Change DD to D for 'E:\Orders 1-Aug-2017' instead of 'E:\Orders 01-Aug-2017'.
     (menucmd (strcat "M=$(edtime,$(getvar,date),DD-MON-YYYY)"))
     "\\"
   )
 )
 (cond
   ((not (findfile fld))
     (prompt (strcat "\nError: Date folder '" fld "' not found "))
   )
   (
     (and
       (= 1 (getvar 'dwgtitled))
       (= (strcase fld) (strcase (getvar 'dwgprefix)))
     )
     (vla-save doc)
   )
   ((setq fnm (getfiled "Save as" fld "dwg" 1))
     (vla-saveas doc fnm)
   )
 )
 (princ)
)

Hi Roy

Thanks for your code. I have checked your code. Unfortunately i got error while running the lisp as shown below.

Error: Date folder 'E:\22-Aug-2017\ ' not found

But i have created the Orders 22-Aug-2017 folder in E drive before run the lisp.

Please give me the suggestion to solve the Error.

Thanks in Advance.

I forgot to add 'Orders ' to the folder name. I have fixed this in my previous post.

Hi Roy

Thanks for your modification. but i got same error again..

Thanks for your modification. but i got same error again..

Hi Roy..

Sorry for my previous post, i have checked again it's working good.

Thank you so much for your code.