[Tip] Code hiển thị thông tin File

[sinhvienpy89]

Mình lang thang Internet tìm được đoạn Code cho biết thông tin về File.Cụ thể là Create, LastAcess, Date Modified, Fize size.Post cùng các bạn tham khảo:
Tạo một Command Button có Name:cmdTest và Paste đoạn Code này vào.

Private Sub cmdTest_Click()
Dim fs, d, f, s
On Error GoTo ShowFileAccessInfo2_Err

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.Getfile("CDocuments and Settings\THANHPHUONGVIP\My Documents\Access\Example2.mdb") ' dua duong dan cu the cua Fil muon kiem tra vao
s = UCase(f.Path) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified & vbCrLf
s = s & "File Size : " & f.Size & " Bytes."

MsgBox s, 0, "Thong tin File"

ShowFileAccessInfo2_Exit:
Exit Sub

ShowFileAccessInfo2_Err:
MsgBox Err.Description, , "ShowFileAccessInfo2"
Resume ShowFileAccessInfo2_Exit

End Sub