-
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:
- Nút OfficeLink bị disable
- Có cách nào để cho Textbox ( Kiểu number) hiển thị chữ "New" cho một bản ghi mới không ?
- Tài liệu Macro trong Access
- Hỏi về Lọc dữ liệu
- Code cập nhật Tồn kho!
- Tạo form login
- Cho mình hỏi về OLE quái vật !
- Ai giúp mình với nhỉ? Sao không ai giúp vậy :(
- xuất table access sang nhiều sheet excell
- Hàm tính số ngày trong tháng
Quả thật, nhóm đồng tính nam hay “yêu cửa sau”nhiều hơn các nhóm khác. Với những cặp đôi nam-nữ dù có thể ít nhưng hoàn toàn vẫn có thể quan hệ được, nếu cả hai cảm thấy thoải mái. thực tiễn, việc...
Những tai nạn khi kích thích hậu môn - Quý ông nên chú ý