İç İçe Döngü Sorunu Lütfen Yardım

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]

@Altuncu; Hocam Kodu Kaydettim buraya eklememe izin vermedi sistem

burdan örnek koda bakabilirsiniz.

http://m.yollayap.com/beth/1585767318800.htm

hocam yardım için teşekkürler ancak maksadım yazdırmak değil. maksadım döngü içerisinde dizi çalıştırmak. i = 0 dan başlayarak dıştaki döngü çalışıyor ve DimFileNames(5) dizisini oluşturuyor. dizi içinde tekrar n =0 ile başlayan döngü çalışıyor ve i = 0 döngüsü işini tamamlıyor buraya kadar sorun yok. Ancak döngü başa dönüp i =1 olduğunda Dim FileNames ikinci kez tanımlanıyor ve bu yüzden hata veriyor. şayet Dim FileNames dizesini FileNames0 , fileNames1, FileNames2 şeklinde tanımlayabilirsem sorun hallolacak. Dim FileNames&i(5) şeklinde yaptığımda hata alıyorum yada Dim FileNames(5)(i) ne yaptımsa sorunu çözemedim bu duruma çözümü olan varsa memnun olacağım. biraz karışık oldu umarım anlaşılır

"ReDim Preserve FileNames(5)" kullanırsan olur.

For i = 0 to 2
    ReDim Preserve FileNames(5)
    
    For n= 0 to 4
        FileNames(n) = ""&(i*5) + n+1&".png"
        Response.Write FileNames(n)&"<br>"
    Next
        Response.Write "<hr>"
    
Next