-
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:
- Tạo chương trình trắc nghiệm bằng ACcess
- Dữ liệu không cập nhật kịp thời khi In report
- Làm sao để tắt chế độ Read Only khi mở file Access qua mạng Lan ?
- Xin hướng dẫn cách nhập số vào textbox
- combo box ở access ???
- Hiện nội dung từng lỗi theo bảng (table) ta dựng sẵn.
- Đếm ngày trong một Tháng/Năm
- Combox????
- Thêm Nhiều Record Chỉ Bằng Một Nút Nhấn
- xin code tạo nút save
Gel titan tăng kích thước dương vật là sản phẩm hỗ trợ bôi ngoài da. Nó không ảnh hưởng nguy hại gì đến sức khỏe bên trong mà hoạt động theo cơ chế tác động trực tiếp tới các mô cơ trên “cậu nhỏ”....
Nhiều điều nên biết về gel tăng size dương vật (6)