Item 1, Item 2, Item 3 gibi değerleri Okutabilmek

[Enemy]

Merhaba,

İki gündür içinden çıkamadığım bir sorunum var. FileSystemObject (FSO) ile sürücü isimlerini listeliyorum. Fakat benim yapmak istediğim ilk önce E sürücüsü, D sürücüsü ve son olarak C sürücüsüne ulaşmak. Yani For ... Next'de Step -1 gibi tersten görüntülemek. Ama olmadı. Çalışan kodlar yani C sürücüsü, D sürücüsü, E sürücüsü olarak görüntüleyen kodlar;

Dim ds, dc, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set dc = ds.drives

For Each sürücü In dc
DoEvents
klasor = sürücü & "\"
Next sürücü


Ama ben aşağıdaki gibi bir kodla tersten almak istiyorum. Ama ne mümkün

For tnt = dc.Count To 1 Step -1
akl = dc.items(1)
Next tnt


dc 'ye watch penceresinde kabak gibi görünen Item 1, Item 2, Item 3 'e ulaşamıyorum. Derdim davam bu. Umarım anlatabilmişimdir. Teşekkürler.

 

[askm]

Sub askm()
Dim ds, dc, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set dc = ds.drives
Dim dizi() As Variant
i = 0
For Each sürücü In dc
    DoEvents
    ReDim dizi(i)
    dizi(i) = sürücü & "\"
    i = i + 1
Next sürücü

For tnt = UBound(dizi) To LBound(dizi) Step -1
    akl = dizi(tnt)
Next tnt
End Sub

 

[Enemy]

Çok teşekkür ederim. Redim preserve olarak revize ettiğimde problemim halloldu.

Watch penceresinde dc 'yi görüntülediğimizde orada direkt gördüğümüz Item 1, Item 2 değerlerini direkt kodla çağıramaz mıyız kafama bu çok takıldı. İki gündür bununla kafayı yedim.

al=Dc.Count dediğimde sürücü sayısını görüntülediğim gibi, Item 1, Item 2, Item n 'e de ulaşabilmeliyiz diye düşünüyorum.

Item le bununla alakalı bir problem daha yaşamıştım. Eğer diziye almadan direkt okutabilirsem süper olacak, kodlama da bir level daha atlamış olacağım. Tekrar çok teşekkür ederim.