Create a Timeline of Files by File Date
Create a FileSystemMap of a directory's files and last modification dates.
In[1]:=
files = FileSystemMap[FileDate,
FileNameJoin[{$HomeDirectory, "Downloads"}]]In[2]:=
<|"2 page flowing Tutorial Template.doc" ->
DateObject[{2016, 3, 2}, TimeObject[{9, 53, 1.`}, TimeZone -> -4.`],
TimeZone -> -4.`],
"2 page step-by-step Tutorial Template.doc" ->
DateObject[{2016, 3, 2},
TimeObject[{9, 52, 57.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"Files.tar.gz" ->
DateObject[{2016, 7, 8},
TimeObject[{12, 36, 45.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"desktop.ini" ->
DateObject[{2016, 5, 18},
TimeObject[{12, 50, 45.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"M-WIN-L-11.0.0-5555928.iso" ->
DateObject[{2016, 6, 29},
TimeObject[{13, 2, 9.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"SenseHatBlogPost.txt" ->
DateObject[{2016, 2, 24},
TimeObject[{12, 29, 50.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"ubuntu-15.04-snappy-armhf-raspi2.img" ->
DateObject[{2016, 4, 22},
TimeObject[{22, 53, 2.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"ubuntu-15.10-desktop-amd64.iso" ->
DateObject[{2016, 2, 24},
TimeObject[{2, 6, 29.`}, TimeZone -> -4.`], TimeZone -> -4.`]|>Create a timeline of when each file in the directory was modified.
In[3]:=
TimelinePlot[files]Out[3]=
Isolate the files that were created before June 1, 2016, and plot them separately.
In[4]:=
TimelinePlot[Select[files, (# < DateObject[{2016, 6, 1}]) &]]Out[4]=
