Greetings!
I have a 40GB external hard drive for yearly back ups.
The directory tree looks like this:
f:/
f:/2001/
f:/2001/acad/
f:/2001/acad/ut/
f:/2002/
f:/2002/acad/
f:/2002/acad/ut/
f:/2003
f:/2003/acad/
f:/2003/acad/ut/
Maybe 4,000 or so directories.
I am trying to write a call to make a single list of strings that includes each directory name ( complete with drive:/directory/subdirect ). A full tree for file comparisions.
Recurstion using McNeels Dos_subdir is crapping out on me.
So far:
(defun dos_asd (p)
(foreach f (dos_subdir p)
(setq l (cons (strcase (strcat p f)) l))
(if (dos_subdir (strcat p f "/"))
(dos_asd (strcat p f "/")))
(princ "#")
)
l)
Using a call of:
(dos_asd "f:/")
Has anyone seen a full path/tree function around? ( DOS 8.3 preferably ) but I can deal with most anything
The end result is to delete duplicate files on the back up drive. If the file hasn't changed since 2001, delete the copies in 2002, 2003. etc. But keep the older ones if has been edited.
TIA -David[/code]