Arkadaşlar iç içi 2 adet döngü çalıştırmak istiyorum ilk döngü sorunsuz çalışıyor ve işini yapıyor ancak ikinci döngüye geldiğinde hata veriyor. sorunun kaynağı içerideki döngüdeki FileNames(5) dize başları aynı olduğundan hata veriyor. yani iç döngüdeki FileNames(5) ifadesini FileNames0(5), FileNames1(5), FileNames2(5) gibi belirlemem gerekiyor bunu nası yaparım. FileNames(5)(i) yaptım saçma oldu hata verdi zaten umarım anlatabilmişimdir.

For i = 0 to 2
Dim FileNames(5)
For n= 0 to 4
FileNames(n) = ""&(i*5) + n+1&".png"
Next
Next

Çıktısı Şöyle Olmasını İstiyorum
For i = 0 to 2
Dim FileNames0(5) ------------------ FileNames0 adikkat
FileNames0(0) = "1.png"
FileNames0(1) = "2.png"
FileNames0(2) = "3.png"
FileNames0(3) = "4.png"
FileNames0(4) = "5.png"
Next

For i = 0 to 2
Dim FileNames1(5) ------------------ FileNames1 e dikkat
FileNames1(0) = "6.png"
FileNames1(1) = "6.png"
FileNames1(2) = "8.png"
FileNames1(3) = "9.png"
FileNames1(4) = "10.png"
Next

For i = 0 to 2
Dim FileNames2(5) ------------------ FileNames2 ye dikkat
FileNames2(0) = "11.png"
FileNames2(1) = "12.png"
FileNames2(2) = "13.png"
FileNames2(3) = "14.png"
FileNames2(4) = "15.png"
Next
Next
[/PHPR]