SetDirectory["~/Desktop/Link to Courses/2990/ClassSamples/21/CardPics2"]
FileNames[]

The cards are stored in the format “n.png” where you need to think mod 4 for suit.

n=52;
{c,s}=QuotientRemainder[n,4]
TableForm[Table[
n=1+j+4*i;
Import[
ToString[
StringForm["``.png",n]]],
{i,0,12},
{j,0,3}]]