Dosya Son Kayıt Tarihi

[Nazmi YAZICI]

Mrb,

Bir xls'in son kayıt tarihini elde edebileceğim bir koda ihtiyacım var.

Yardımcı olan arkadaşlara şimdiden teşekkür ederim.
Saygılarımla,

 

[Mahmut Bayram]

1. bunu açılış makrosu ile öğrenebilirsiniz. Unutmayın dosyanın kaydedilmesi ve makro etk. şarttır.
MsgBox ThisWorkbook.BuiltinDocumentProperties("Last Save Time").Value
2. bunu da ister modüle ister açılış modülüne
MsgBox "Bu program enson : " & Date & " tarihinde ," _
& " saat : " & Time & " de kullanıldı! "

 

[Nazmi YAZICI]

Teşekkür ederim.

 

[Haluk]

[vb:1:4ddcc2e1f1]Sub Info()
Dim MyFile As String, MyInfo As String
MyFile = "C:\Test.xls"
Workbooks.Open MyFile
MyInfo = ActiveWorkbook.BuiltinDocumentProperties(12)
MsgBox MyInfo
Workbooks(Dir(MyFile)).Close
End Sub
[/vb:1:4ddcc2e1f1]

Edit: Kodlarda bahsedilen "C:\Test.xls" dosyasının bilgisayarda mevcut ve daha önceden en azından 1 kere kaydedilmiş olması gereklidir.

 

[Haluk]

Veya;

[vb:1:59eac6d220]Sub FileDetails()
Dim fs, f
FilePath = "C:\Test.xls"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FilePath)
FileSize = f.Size / 1024
Folder = f.ParentFolder
LastModified = Format(f.DateLastModified, "dd.mmmm.yyyy")
LastAccessed = Format(f.DateLastAccessed, "dd.mmmm.yyyy <<>> hh:mm")
MsgBox "Dosya boyutu :" & FileSize & " Kb" & vbCrLf _
& "Son degisiklik : " & LastModified & vbCrLf _
& "Son Kullanim : " & LastAccessed
Set f = Nothing
Set fs = Nothing
End Sub
[/vb:1:59eac6d220]

 

[baydeniro]

Sayın Haluk çok teşekkürler.