Çözüldü Rar dosyalarına gizli özelliği tanımlamak

[k0081]

Merhaba dostlar;

C:\Deneme klasöründe farklı tarihlerde oluşturulmuş rar dosyaları mevcut.

Abcd_25_03_2019.rar
Dgss_15_03_2019.rar
Cbnf_03_12_2018.rar
...
...

Yapmak istediğim; en büyük tarihe sahip rar dosyaları hariç , diğerlerinin gizli özelliği kazanması... command buton ile...

En büyük tarihli dosya veya dosyalar için ; tarih kısmı dosya adından alınacaktır ... yani xxx_25_03_2019.rar gibi.. bu biçime göre...

Yardımcı arkadaşa şimdiden çok teşekkürler ; )

 

[metehan8001]

Klasör yolunu düzeltin ve klasörde sadece rar dosyalarının olduğu varsayalım.

Sub ExcelDestekCom()
Dim xd()
yol = ThisWorkbook.Path & "\deneme\"
dosya = Dir(yol)
Do While dosya <> ""
i = i + 1
ReDim Preserve xd(1 To 1, 1 To i)
xd(1, i) = CLng(CDate(Replace(Left(Right(dosya, 14), 10), "_", ".")))
dosya = Dir
Loop
son_dosya = WorksheetFunction.Max(xd)
dosya = Dir(yol)
Do While dosya <> ""
If son_dosya <> CLng(CDate(Replace(Left(Right(dosya, 14), 10), "_", "."))) Then
SetAttr yol & dosya, vbReadOnly + vbHidden
End If
dosya = Dir
Loop
MsgBox "İşlem Tamam..!", vbInformation, "İşlem Tamam"
End Sub

 

[k0081]

metehan8001 ;

Hocam çok Teşekkür ediyorum,, Tamamdır.. Elinize sağlık... Tam istediğim gibi.

 

[metehan8001]

Geri dönüş için eyvallah, iyi çalışmalar.

 

[k0081]

Klasör yolunu düzeltin ve klasörde sadece rar dosyalarının olduğu varsayalım.

Sub ExcelDestekCom()
Dim xd()
yol = ThisWorkbook.Path & "\deneme\"
dosya = Dir(yol)
Do While dosya <> ""
i = i + 1
ReDim Preserve xd(1 To 1, 1 To i)
xd(1, i) = CLng(CDate(Replace(Left(Right(dosya, 14), 10), "_", ".")))
dosya = Dir
Loop
son_dosya = WorksheetFunction.Max(xd)
dosya = Dir(yol)
Do While dosya <> ""
If son_dosya <> CLng(CDate(Replace(Left(Right(dosya, 14), 10), "_", "."))) Then
SetAttr yol & dosya, vbReadOnly + vbHidden
End If
dosya = Dir
Loop
MsgBox "İşlem Tamam..!", vbInformation, "İşlem Tamam"
End Sub

Hocam bu kodu : Sadece Yılı baz alacak şekilde nasıl düzenleyebiliriz ?