ma in che linguaggio l' hai scritto?
prova con qualcosa di simile:
SUB PrintDirectory(Directory AS String)
DIM File AS new String[]
file=Dir(Directory, "*.JPG").Sort()
for each file
PictureBox1.Picture = Directory & "/" & File[i]
inc i
wait 10
next
non ho scritto il codice nell' ide ma se non è così è molto simile
Per sapere quanti file ci sono in una directory basta usar il for each che incrementa una variabile...alla fine del ciclo saprai quanti file ci sono:
Dim i as integer = 0
FOR EACH File IN Dir(Directory, "*.JPG").Sort()
i += 1
NEXT
PRINT "le immagini sono: " & str(i)