Skip to main content

AccessTr.neT

Kayıt Ol

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

Klasördeki Son Eklenen Dosyayı Getirmek

accessman
accessman
Access Cevaplanmış Soruları
12
973

Klasördeki Son Eklenen Dosyayı Getirmek

#3
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
Sayın @accessman Dosya adlarını aşağıdaki gibi tarih formatına dönüştürüp döngü içinde en büyük olanı belirleyebilirsiniz. 
Kod:
Sub a()
DosyaAdları = "EGITmM (20.05.2020).XLS,EGITmM (11.05.2020).XLS,EGITmM (09.05.2020).XLS,EGITmM (13.05.2020).XLS"
DosyaAdları = Split(DosyaAdları, ",")
Buyuk = 0
For i = 0 To UBound(DosyaAdları)
If Buyuk < CDbl(CDate(Mid(DosyaAdları(i), 9, 10))) Then
dosya = DosyaAdları(i)
Buyuk = CDbl(CDate(Mid(DosyaAdları(i), 9, 10)))
End If
Next
MsgBox dosya
End Sub
Son Düzenleme: 22/05/2020, 09:46, Düzenleyen: alicimri.
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 Son Eklenen Dosyayı Getirmek - Yazar: alicimri - 22/05/2020, 09:44
Task