AccessTr.neT

Command0 isimli bir buton oluşturun aşağıdaki kodları formunuz yapıştırın. Msgbox ile gelen değer Son Değiştirilme Tarihidir.

Option Compare Database



Sub dosya_veya_klasor_ozellikleri()

    Dim ShellApp As Object, Parse As Object

    Dim f As Variant, d As Variant, s As Long

    Dim str1 As String * 25

    Dim str2 As String

     

    On Error Resume Next

     

    f = "C:\Users\yasin\Desktop\Kargo\"

    d = "pd.dll"

     

    Set ShellApp = CreateObject("Shell.Application")

    Set Parse = ShellApp.NameSpace(f).ParseName(d)

     

    For s = 0 To 50

        str1 = ShellApp.NameSpace(f).GetDetailsOf(d, s)

        str2 = ShellApp.NameSpace(f).GetDetailsOf(Parse, s)

        If x <> InStr(1, str1, "Değiştirme") Then MsgBox Format(CVDate(str2), "DD.MM.YYYY") 'Debug.Print str1 & " = " & str2

    Next

     

    If err Then MsgBox err.Description

End Sub



Private Sub Command0_Click()

    Call dosya_veya_klasor_ozellikleri

End Sub

sn.yandemir çok teşekkürler
bunu ben programıma nasıl uyarlayabilirim
eklenen dosyaa programında müsaitseniz yapabilirmisiniz
teşekkürler

---

nasıl yapabileceğimi anlatabilirmisiniz

---

dosya tarihlerini de Access tablosuna almam lazım yardımcı olabilirmisiniz

birkaç deneme yaptım çalışıyor. İnceleyiniz.

Ek Dosyalar

Dosya_sled.rar(21.88 KB)

çok teşekkürler

sayın admin ve diğer arkadaşlar
admin arkadaşımızın en son eklediği programda dosyayı tarihiyle alıyor
bunu sadece tarihiyle değilde
gün ay yıl saat dakika
şeklinde nasıl alabiliriz
aynı gün içersindeki iki dosyadan en son alınan yedeği kullanmam lazım
teşekkürler

Gün ay yıl almak için koda "DD.MM.YYYY" yazdığımıza göre saat ve dakika için ne eklememiz gerekir sizce.