-
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:
- làm sao để hiển thị thông tin về last record
- Thêm ảnh chân dung cho từng ID.
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 1 - Table và Form)
- Tìm kiếm với hai điều kiệm trong 1textbox
- Code Access lỗi khi chạy trên win7-64bit
- [Giúp] Lồng Select SQL Query Append vào trong VBA
- Nút OfficeLink bị disable
- Đóng gói access
- Xin hỏi cách tạo combobox lồng nhau
- Cho Mình Hỏi Làm Sao Để Thu Nhỏ Cửa Sổ Access ?
Các mẫu cột cổng đá đẹp nhất được làm từ đá xanh tự nhiên có độ bền coi như vĩnh cửu dù cột đá được đặt ngoài hiên có thể chịu mưa , chịu nắng. Mẫu mã đẹp nhất, chạm khắc hoa văn đẹp, tinh tế. ...
Mẫu mẫu cột cổng đá được làm bằng đá xanh tự nhiên đẹp nhất hiện nay