Dosya erişim bilgisi hk.

[mumugul]

Merhaba,

Dosya erişim zamanına hangi kod ile ulaşabiliriz, yardımcı olur musunuz?

Saygılarımla...

 

[Haluk]

Sub Test()
    'Haluk - 23/11/2018
    '
    Dim FSO As Object
    
    strFile = Application.GetOpenFilename("(*.*), *.*")
    If strFile = False Then Exit Sub
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Set myFile = FSO.getFile(strFile)
    MsgBox myFile.DateLastAccessed
    
    Set myFile = Nothing
    Set FSO = Nothing
End Sub

.

 

[mumugul]

Teşekkürler...