Çözüldü Son değiştirilen dosya

[k0081]

Merhaba arkadaşlar;

Myfolder=usbflash & “\rar_yedek\”
Myfile = dir (myfolder & “kasa_*”)
Do while myfile <> “”
Files=files + 1
Usbkasarar = usbkasarar & myfile
Myfile = dir
Loop

Şimdi bu kod ile kasa ismiyle başlayan rar uzantılı dosyayı değişkene alıyorum. Belirtilen klasörde tek dosya varken düzgün çalışıyor,, ama kasa ile başlayan birden çok dosya varsa Problem...


Amacım;

Birden çok dosya olduğunda en büyük tarihli dosyayı seçsin. Bunun için kodu ne şekilde değiştirmeliyim ?


Yardımcı arkadaşa şimdiden teşekkür ederim.

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

Set fs = CreateObject("Scripting.FileSystemObject")
Dim dt As Date
myfolder = usbflash & "\rar_yedek\"
Myfile = Dir(myfolder & "kasa_*")
Do While Myfile <> ""
Files = Files + 1
Set f = fs.GetFile(usbflash & "\rar_yedek\" & Myfile)

If dt = 0 Then
dt = f.DateLastModified
usbkasarar = Myfile
Else
If f.DateLastModified > dt Then
dt = f.DateLastModified
usbkasarar = Myfile
End If: End If

Myfile = Dir
Loop

MsgBox usbkasarar & vbCrLf & dt

 

[k0081]

PLİNT

Hocam çok teşekkür ediyorum, Tamamdır.. Aynen buydu aradığım cevap. Elinize sağlık. Eyvallah.

 

[PLİNT]

Rica ederim,
güle güle kullanın, kolay gelsin.

 

[veyselemre]

Myfile = usbflash & "\rar_yedek\kasa_*"
MsgBox CreateObject("WScript.Shell").Exec("cmd.exe /C dir " & Myfile & " /b/o:-d").StdOut.readline

 

[k0081]

Myfile = usbflash & "\rar_yedek\kasa_*"
MsgBox CreateObject("WScript.Shell").Exec("cmd.exe /C dir " & Myfile & " /b/o:-d").StdOut.readline

Hocam çok teşekkür ederim., alternatif oldu...

 

[veyselemre]

Myfile = usbflash & "\rar_yedek\kasa_*"
usbkasarar =CreateObject("WScript.Shell").Exec("cmd.exe /C dir " & Myfile & " /b/o:-d").StdOut.readline

 

[k0081]

veyselemre



Hocam sonradan fark ettim, değişken belli zaten. özür...