-
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 key bản quyền cho access
- Giúp sinh mã quản lý cho từng sản phẩm
- TIP : Chạy ảnh động trên Form ! Thật hay Đùa ?
- Quản lý mua bán hàng - Phần 5: Thiết kế form dạng Main/Sub
- Lập trình bảo mật cơ sở dữ liệu Access
- Bắt sự kiện Report được in ra máy in?
- Lỗi khi import dữ liệu vào table
- 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?
- Checkbox và option button
- Tối ưu thuật toán tạo thẻ kho trong access
Hiện nay, trên mạng cũng có rất nhiều diễn đàn mà cánh nam giới chia sẻ với nhau về nghệ thuật bế tinh và coi đó là bí kíp để gìn giữ sức khỏe và tư thế đàn ông. Tuy nhiên, theo giáo sư Trần Quán...
Tư thế yêu mà không xuất của quý ông. Tác hại như thế nào?