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

Ek Dosyalar

Dosya_sled.rar(21.88 KB)