Çözüldü Klasör İçerisindeki Dosya İsimlerini Listbox'a alma

[ragnorak]

Resimdeki gibi klasör içerinde Access dosyalarım var. Bunların adlarını Listbox'a Pc adı; Tarih; Saat olarak 3 sutuna ayrılmış şekilde almak istiyorum. Listedeki pc adı, tarih ve saat arasında 1 karakter boşluk var.

 

[ragnorak]

On Error Resume Next
Dim evn As Object
cc = AYARLAR.TextBox20x.Text
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.GetFolder(cc)
For Each dosyalar In klasor.Files

a = Split(Replace(dosyalar.Name, ".accdb", ""), " ")
For i = 0 To UCase(a)
ListBox1.AddItem a(i)
ListBox1.List(ListBox1.ListCount - 1, 1) = a(i + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = a(i + 2)
Next

Next
ListBox1.ListIndex = 0

Bu şekilde çalışıyor ama "On Error Resume Next" yazmadığımda "runtime error 13" hatası alıyorum

 

[Haluk]

Bana sanki;

for i=0 to ucase(a)-1

seklinde duzeltseniz, olur gibi geldi....

.

 

[halit3]

bu kodu bir dene

Private Sub CommandButton1_Click()

Set Klasor = CreateObject("shell.application").browseforfolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo atla
ListBox1.Clear

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

For Each Dosya In fL.GetFolder(Kaynak).Files
uzanti = LCase(fL.GetExtensionName(Dosya))
If uzanti = "accdb" Then
ListBox1.AddItem
sat1 = ListBox1.ListCount - 1
ListBox1.List(sat1, 0) = Dosya.Name
ListBox1.List(sat1, 1) = Dosya
End If
Next


Else
atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub

 

[ragnorak]

Dim evn As Object
cc = AYARLAR.TextBox20x.Text
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.GetFolder(cc)
For Each dosyalar In klasor.Files
a = Split(Replace(dosyalar.Name, ".accdb", ""), " ")
With ListBox1
.AddItem a(i)
.List(.ListCount - 1, 1) = Format(a(i + 1), "dd.mm.yyyy")
.List(.ListCount - 1, 2) = a(i + 2)
.ListIndex = 0
End With
Next

bu şekilde düzeltince bir sorun kalmadı. Teşekkür ederim.