Array

[Francesco_76]

Come pooso aprire una directory e leggere tutti i nomi dei file immagine presenti, per inserirli in un'array??

adesso faccio cosi e li inserisco in una listbox

Private Sub Form_Load()
estensione = "jpg"
Thefile$ = Dir$("D:\Foto Donne\*." & estensione)
While Thefile$ <> ""
    ' scrivi in una listbox ad esempio
    List1.AddItem Thefile$
    Thefile$ = Dir$
Wend
End Sub

grazie mille

[mcathor]

Puoi fare esattamente come stai facendo ma invece di usare un listbox usa una stringa separando i nomi dei file con un carattere particolare, poi su quella stringa usi la funzione split
es:

Private Sub Form_Load()
estensione = "jpg"
Thefile$ = Dir$("D:\Foto Donne\*." & estensione)
While Thefile$ <> ""
' scrivi in una listbox ad esempio
stringa = Thefile$ & "#"
Thefile$ = Dir$
Wend
stringa = split(stringa,"#")
End Sub
ecco qui il tuo array
Attenzione il metodo che stai utilizzando però prende in considerazione solo i file ".jpg"
se volessi trovare tutti i file immagine dovresti usare il filesystemobject

[Francesco_76]

scusa la mia stupidita, e che sto studiando da poco vb

io volovo che mi tornava un'array cosi ad esempio

arrayIMG(0) = "2advanced.jpg"
arrayIMG(1) = "2advanced.jpg"
arrayIMG(2) = "2advanced.jpg"


ho provato a fare cosi ma...

Private Sub Form_Load()
    Dim i As Integer '<-- conta il numero totale dei file presenti nella directory
    Dim l As Integer '<-- left
    Dim t As Integer '<-- top
    l = 1200
    t = 0
    Dim patch As String
    Dim arrayIMG(1000) As String
    

    estensione = "jpg"
    Thefile$ = Dir$("D:\Foto\*." & estensione)
    While Thefile$ <> ""
    stringa = Thefile$ & "#"
    Thefile$ = Dir$
    Wend
    arrayIMG = Split(stringa, "#")

e poi continua..

ma mi dice "impossibile assegnare alla matrice"

[mcathor]

dichiara arrayIMG come variant, in questo modo:
dim arrayIMG as variant

[Francesco_76]

non ci riesco... ma forse non so spiegarmi bene, posso inviarti il file in modo che puoi capire meglio, credo che non sia difficile ma....

[mcathor]

ok mandalo

[Francesco_76]

mail??

[mcathor]

mandalo dal mio profilo

[mcathor]

Scusa dal profilo non puoi inserire gli attachement!
mcathor@yahoo.com

[Francesco_76]

non fa allegare