给定目录的路径,如何返回该目录中最新文件的路径?
答案 0 :(得分:7)
使用内置API也可以实现:
(defun latest-file (path)
"Get latest file (including directory) in PATH."
(car (directory-files path 'full nil #'file-newer-than-file-p)))
(latest-file "~/.emacs.d") ;; => "/Users/xcy/.emacs.d/var"
如果您还需要子目录下的文件,请使用directory-files-recursively
而不是directory-files
。如果要排除目录,请先使用file-directory-p
过滤文件/目录列表。
答案 1 :(得分:2)
使用f:
(defun aj-fetch-latest (path)
(let ((e (f-entries path)))
(car (sort e (lambda (a b)
(not (time-less-p (aj-mtime a)
(aj-mtime b))))))))
(defun aj-mtime (f) (let ((attrs (file-attributes f))) (nth 5 attrs)))
答案 2 :(得分:0)
如果你想在没有依赖的情况下做到这一点
directory-files-and-attributes
为我们提供了具有属性的文件和目录列表
NOSORT
是一个布尔值,不采用最佳答案所暗示的函数(目录文件和属性目录和可选的 FULL MATCH NOSORT
ID格式)
如果 NOSORT 非零,则列表未排序——它的顺序是不可预测的。
如果您打算自己对结果进行排序,则 NOSORT 很有用。
file-attributes
- 它为我们提供了修改时间以及项目是文件还是目录(car
(seq-find
'(lambda (x) (not (nth 1 x))) ; non-directory
(sort
(directory-files-and-attributes path 'full nil t)
'(lambda (x y) (time-less-p (nth 5 y) (nth 5 x)))))) ; last modified first: y < x