Renaming Files
Source : Alex Schroeder: Diary
I had a bunch of files named like this, from various albums.Cure - [1984] The top - 01 - Shake dog shake.mp3 Cure - [1984] The top - 02 - Bird mad girl.mp3 Cure - [1984] The top - 03 - Wailing wall.mp3I wanted to move them into subdirectories, one for each album.(dolist (file (directory-files "c:/Users/asc/Music/The Cure" t "\\.mp3$")) (let* ((name (file-name-nondirectory file)) (data (split-string name " - ")) (album (nth 1 data))) (unless (file-directory-p (concat "c:/Users/asc/Music/The Cure/" album)) (make-directory (concat "c:/Users/asc/Music/The Cure/" album))) (rename-file file (concat "c:/Users/asc/Music/The Cure/" album "/" name))))Tags: Emacs
le 18.05.16 à 09:26
dans Mind
- 
Article précédent - Commenter - Article suivant -