vl-file-systime only returning nil

[frostrap]

I'm stumped.

 

The following code returns filenames, but only returns nil for the modification date of each file.

 

This code is just the building block for a simple program that will purge .bak files from a specified folder after they've been in there for some given period of time.

 

Any ideas why I'm only getting nils returned to me?

 

(defun Sbu(/ thefile thelist datemodified)
 (vl-load-com)
 (setq thelist (vl-directory-files "c:\\test\\" "*.*" 1))
 (foreach thefile thelist
   (setq datemodified (vl-file-systime thefile))
   (print thefile)
   (print datemodified)
 );foreach
 (princ)
);defun

 

Thanks,

 

Joe

[wizman]

(defun Sbu (/ thefile thelist datemodified)

(vl-load-com)

(setq directory "c:\\test\\")

(setq thelist (vl-directory-files directory "*.*" 1))

(foreach thefile thelist

(setq datemodified (vl-file-systime (strcat directory thefile)))

(print thefile)

(print datemodified)

) ;_ end_foreach

(princ)

) ;_ end_defun

[frostrap]

Oh, I see my error now. I was referencing the filename, but had omitted the path.

 

Thanks wizman!

[wizman]

you're welcome joe