Dosya Sorgulama

[jajiyiko]

Merhaba!

Öncelikle herkese kolay gelsin.

Dosya Sorgulama ile ilgili bir sorunum var.

Benim bir klasör altında onlarca klasörüm var.

Şöyle ki;

01022017
02022017
03022017
...
28022017

gibi

Anlaşılacağı üzere dosya isimleri birer tarih.

Bu klasörlerin içinde onlarca xls dosyası var ve bu dosyalarda bulundukları klasör adı

ve kaydedildikleri saatle adlandırılmış durumda.

örnek olarak 01022017 klasörü içindeki dosyalar,

01022017_140245.xls
01022017_230111.xls

(klasör adı_saat.xls)


bu vaziyetteler.

Benim yapmak istediğim bir sorgulama.Yani iki tarih ve iki saat seçerek bu aradaki dosyaların isimlerini bir listboxa yazdırmak.

Ben başaramadım.Yardımcı olursanız sevinirim.

Teşekkür ederim.

 

[alicimri]

1. Excel dosyalarınızın D sürücüsünde "klasörler" adındaki klasördeki, klasörlerde olduğu varsayılmıştır.
2."iki tarih ve iki saat seçerek belirleyeceğiniz" tarih ve saatleri J1 ve K1 hücrelerinden ("01.01.2017 01:01:01" formatında girilerek) alındığı varsayılmıştır.
3. Kodlar dosya isimlerini Msgbox a gösteriyor. Siz listbox a alabilirsiniz.

Sub ShowFolderList()
bas = Range("J1")
son = Range("K1")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("d:\klasörler\")
    Set sf = f.SubFolders
    For Each f1 In sf
    If IsNumeric(f1.Name) Then
     Set f1 = fs.GetFolder("d:\klasörler\" & f1.Name)
   Set sf1 = f1.Files
   For Each DAdi In sf1
  tarih = CDate(Left(DAdi.Name, 2) & "." & Mid(DAdi.Name, 3, 2) & "." & Mid(DAdi.Name, 5, 4) & " " & Mid(DAdi.Name, 10, 2) & ":" & Mid(DAdi.Name, 12, 2) & ":" & Mid(DAdi.Name, 14, 2))
If tarih >= bas And tarih <= son Then
MsgBox DAdi.Name
End If
    Next
    End If
   Next
End Sub

 

[jajiyiko]

Sayın alicimri;

Emeğinize sağlık. Çok teşekkür ederim.

Çok işime yaradı sağolun.

Selamlar,saygılar