Pensieve header: A visual image directory.

Get["C:\\drorbn\\AcademicPensieve\\Projects\\AcademicPensieve\\AssemblyPrograms.m"];
Get["C:\\drorbn\\AcademicPensieve\\Projects\\AcademicPensieve\\AcademicPensieveStartup.m"];
SetDirectory[PensieveDirectory];
DoNotIndex=Pensieve`DoNotIndex;
(*DoNotIndex=("Projects/PlanetHopf/Frames/"~~___)|("Projects/PlanetHopf/Frames2/"~~___);*)
ImageTypes=Pensieve`Private`ImageTypes;
AllImages = StripRootDir /@ FileNames[("*."<>#)& /@ ImageTypes, PensieveDirectory, Infinity];
AllImages = StringReplace[#, "\\"->"/"]& /@ AllImages;
AllImages = Select[AllImages, (
s = FileNameSplit[#];
Nor[
StringMatchQ[#, DoNotIndex],
Length[s] ≥ 2 && MemberQ[{"thumbs"}, s[[-2]] ]
]
)&
];
MakeIcon[s_] := (
ss=FileNameSplit[s];
thumb = Import[FileNameJoin[Insert[ss, "thumbs", -2]]];
thumb = ImageResize[thumb, {64}];
Join[
{thumb},
Drop[ss,-1]
] //ColumnForm
);

Date[]
Length[AllImages]

Style[MakeIcon/@ AllImages,8]