[VB6] Leggere file da una directory

[mgmg]

Si possono leggere le jpg presenti in una directory e caricarle in n... picture box in questo modo:

    NomeDir = "C:\*.jpg
    Y = Dir(NomeDir)
    indice = 0
    X = InStrRev(NomeDir, "\", Len(NomeDir), vbTextCompare)
    NomeDirP = Mid(NomeDir, 1, X)
    Do Until Y = ""
        Picture1(indice).Picture = LoadPicture(NomeDirP & y)
        indice = indice + 1
        Y = Dir
    Loop

Ciao

PS: Spero non ci siano errori, perchè non l'ho provato