Çözüldü En büyük tarihli dosya adı almak

[k0081]

C:\Deneme klasörü içinde;

Ör;
Kasa_10_05_2018.rar
Kasa_7_04_2018.rar
Kasa_14_08_2018.rar
....
....

Gibi dosyalar o anki tarihe göre alınmış rar dosyaları.

Bu dosya adlarından oluşturulma tarihi en büyük olan rar dosyasını bir değişkene nasıl alabilirim ?


Yardımcı arkadaşa şimdiden Teşekkürler

 

[Haluk]

Aşağıdaki kodu deneyebilirsiniz ...

Sub Test()
    ' Haluk - 15/01/2019
    ' sa4truss@gmail.com
    '
    Dim FSO As Object, strFolder As Object
    Dim arrList() As Long, i As Long, temp As String
    
    SourceFolder = "C:\Deneme"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set strFolder = FSO.GetFolder(SourceFolder)
    
    For Each strFile In strFolder.Files
        i = i + 1
        ReDim Preserve arrList(1 To i)
        temp = Replace(FSO.GetBaseName(strFile.Name), "Kasa_", "")
        temp = Replace(temp, "_", "/")
        If IsDate(temp) Then
            arrList(i) = CDate(temp)
        End If
    Next
    
    MsgBox Format(WorksheetFunction.Max(arrList), "dd.mm.yyyy")
    
    Set strFolder = Nothing
    Set FSO = Nothing
End Sub

.

 

[k0081]

Haluk;

tar2= Format(WorksheetFunction.Max(arrList), "dd_mm_yyyy")
tar3 = "Kasa_" & tar2 & ".rar"
MsgBox tar3

Hocam çok Teşekkür ediyorum, Tamamdır... yalnız şöyle bir durum var; dosyayı sadece isimlendirdiğimiz şekilde alıyoruz. Ama dosyanın oluşturulma tarihi de gerekli.

Burda sadece isim olarak alıyor. Bunu başka bir kodun içine ekleyeceğim. o yüzden isim tamam. fakat dosya karşılatırma yaptığım için Reel olarak dosyanın kendisini seçtirmemiz gerekiyor.

Teşekkürler.

 

[k0081]

Hocam bu konu çözülmüştür. Teşekkür ediyorum.

******************* BU KONU ÇÖZÜLMÜŞTÜR. ********************