-
06-24-2010, 01:16 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
[Tip] Code hiển thị thông tin File
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("C:-/Documents 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 SubView more random threads:
- Giúp đở vấn đề share csdl access để được nhiều người dùng
- Chạy 1 function vbscript trong Access???
- Tìm kiếm với hai điều kiệm trong 1textbox
- Giúp đở đoạn code SQL trong VBA của Access
- Code cập nhật Tồn kho!
- xin chào mọi người nhờ mọi người giúp mình vấn đề tìm theo ngày nhập vào được không?
- Hướng dẫn Treeview
- Cho mình hỏi về OLE quái vật !
- Nhập dữ liệu record vào table thì khi xuất sang access fon't chữ bị nhảy khônng đọc được
- chuyển font Vntime sang unicode
Theo Reuters, các bác sĩ thuộc Đại học Stellenbosch tại Cape Town (Nam Phi) đã tiến hành giải phẫu cho một thanh niên 21 tuổi vào tháng 12 năm ngoái. Bệnh nhân buộc phải cắt bỏ cơ quan sinh dục do bộ...
Công bố trường hợp ghép “cậu nhỏ” thành công cho 1 quý ông giấu tên