-
06-24-2010, 01:16 PM #1
Junior 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:
- TIP : Ẩn Table trong ACCESS .
- Lỗi khi nhập liệu bằng access mdb
- giúp em sử dụng đoạn code này với!!!
- Có cách nào để lấy về thời gian hệ thống của 1 máy qua mạng Lan không mọi người ?
- Sử dụng chức năng phân quyền truy cập của access
- Dùng các phương thức Find của Recordset
- Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
- Làm thế nào để biết được User hiện hành là ai ?
- Giúp Đỡ
- giúp e 1 bài VBA này cái
Việc chọn lọc “áo mưa” cũng giống như những chiếc bao cao su mỏng nhất thế giới mặc thông thường vậy, mỗi người ở mỗi khu vực khác nhau lại có kích tấc thân khác nhau, người Châu Âu thì to cao hơn...
Vấn đề quý ông thắc mắc: Bao cao su nào cũng giống nhau phải không?