Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Klasördeki Dosyaları Listboxa Alırken Oluşturma Tarihine Göre Sıralamak

accessman
accessman
Access Cevaplanmış Soruları
11
1075

Klasördeki Dosyaları Listboxa Alırken Oluşturma Tarihine Göre Sıralamak

#2
alicimri
Destek Ekibi
alicimri
Bul
Destek
Adı Soyadı:
Yaşı: 66
Konum: Muğla
Ofis Versiyonu: Ofis 2007
Son Oturumu: 10/04/2021,12:55
Yorumları: 191
Konuları: 5
Kayıt Tarihi: 02/02/2020
Teşekkür Puanı: 47
Mesleğiniz: emekli
Kod:
Sub sırala()
Dim oFS As Object
Dim sFil As String
Dim liste As Object
Set liste = CreateObject("System.Collections.ArrayList")
sFil = Dir(ThisWorkbook.Path & "\*.xl*")
Set oFS = CreateObject("Scripting.FileSystemObject")
Do While sFil <> ""
liste.Add CDbl(oFS.GetFile(ThisWorkbook.Path & "\" & sFil).DateCreated) & "*" & sFil
sFil = Dir
Loop
liste.Sort
For i = liste.Count - 1 To 0 Step -1
Sonuc = Split(liste(i), "*")
MsgBox "Dosya Adı " & Sonuc(1)
MsgBox "Oluşturma Tarihi " & CDate(Sonuc(0))
Next
End Sub
Oluşturma tarihini başa alıp, sıralayınca doğru sonuç veriyor. Ben tek klasöre göre düzenledim. Kendi dosyanıza göre uyarlayın.
Sayın @accessman yukardaki kodları yeniledim.
Son Düzenleme: 24/05/2020, 12:06, Düzenleyen: alicimri. (Sebep: Tarihi Metin olarak gördüğünden yanloş sonuç veriyordu.)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Klasördeki Dosyaları Listboxa Alırken Oluşturma Tarihine Göre Sıralamak - Yazar: alicimri - 24/05/2020, 11:23
Task