(defun etransfiles ()
  (setq	etf_lst
	 (dos_dir
	   (strcat (dos_fullpath "..\\") "815 Submittals\\Temp\\*.*")
	 ) ;_ end of DOS_DIR
  ) ;_ end of SETQ
  (setq dateno (rtos (getvar "cdate") 2 0))
  (setq	datestr	(strcat	(substr dateno 1 4)
			"-"
			(substr dateno 5 2)
			"-"
			(substr dateno 7 2)
		) ;_ end of STRCAT
  ) ;_ end of SETQ
  (foreach n etf_lst
    (if
      (dos_copy
	(strcat	(dos_fullpath "..\\")
		"815 Submittals\\Temp\\"
		n
	) ;_ end of STRCAT
	(strcat	(dos_fullpath "..\\")
		"815 Submittals\\"
		datestr
		"\\"
		n
	) ;_ end of STRCAT
      ) ;_ end of DOS_COPY
       (dos_attrib
	 (strcat (dos_fullpath "..\\")
		 "815 Submittals\\"
		 datestr
		 "\\"
		 n
	 ) ;_ end of STRCAT
	 1
       ) ;_ end of DOS_ATTRIB
    ) ;_ end of IF
  ) ;_ end of FOREACH
) ;_ end of defun
(defun etransmkdir ()
  (setq dateno (rtos (getvar "cdate") 2 0))
  (setq	datestr	(strcat	(substr dateno 1 4)
			"-"
			(substr dateno 5 2)
			"-"
			(substr dateno 7 2)
		) ;_ end of STRCAT
  ) ;_ end of SETQ
  (dos_mkdir
    (strcat (dos_fullpath "..\\") "815 Submittals\\Temp\\")
  ) ;_ end of DOS_MKDIR
  (dos_mkdir
    (strcat (dos_fullpath "..\\")
	    "815 Submittals\\"
	    datestr
	    "\\"
    ) ;_ end of STRCAT
  ) ;_ end of dos_mkdir
) ;_ end of defun
(defun etransdelete ()
  (dos_delete
    (strcat (dos_fullpath "..\\") "815 Submittals\\Temp\\*.*")
  ) ;_ end of DOS_DELETE
) ;_ end of defun
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 1 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;