SetDirectory@"C:\\drorbn\\AcademicPensieve\\Classes\\16-475-ProblemSolving\\Quiz2StudentFigures"

FileNames[RegularExpression@"\\d\\d.png"]

Import["nb/Collage.pdf"]

Import /@ FileNames[RegularExpression@"\\d\\d.png"]

ImageCollage[
Scaled[1]-> Import /@ FileNames[RegularExpression@"\\d\\d.png"],
"Fit", 1024,
Method -> "ClosestPacking",Background -> White, Padding -> Red, ImagePadding -> 5
]

Export["Collage.png",
ImageCollage[
Scaled[1]-> Import /@ FileNames[RegularExpression@"\\d\\d.png"],
"Fit", 1600,
Method -> "ClosestPacking",Background -> White, Padding -> Red, ImagePadding -> 4
]
]

ImageCollage[
1-> Import /@ FileNames[RegularExpression@"\\d\\d.png"],
"Fit", 1024,
Method -> "ClosestPacking",Background -> White, Padding -> Red, ImagePadding -> 5
]

ImageCollage[
1-> Import /@ FileNames[RegularExpression@"\\d\\d.png"],
"Fit", 1024,
Method -> "Rows", Background -> White, Padding -> Red, ImagePadding -> 5
]

(Random[]->Import[#])& /@ FileNames[RegularExpression@"\\d\\d.png"]

ImageCollage[
(Random[]->Import[#])& /@ FileNames[RegularExpression@"\\d\\d.png"],
"Fit", 1024,
 Background -> White, Padding -> Red, ImagePadding -> 5
]