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]=