1/ Dir
--- Cú pháp : Dir ( Path, [Attribute] As vbFileDirectory) As String
Hàm trả về giá trị chuỗi là tên của tập tin hoặc thư mục hay nhãn của ổ đĩa. Hàm sẽ trả về giá trị rỗng nếu đường dẫn không có thật.
Path : Đường dẫn đến tập tin/ thư mục/ phân vùng
Attribute : thường dùng nhất là vbNormal (mặc định - dùng để lấy tên tập tin) và vbDirectory (lấy tên thư mục)
----- Ví dụ :
Dir ("E:\Example.mdb") '>>> Kết quả là Example.mdb
Dir ("E:\New Folder") '>>> Kết quả là rỗng (vì NewFolder không phải là tập tin)
Dir ("E:\New Folder", vbDirectory) '>>> Kết quả là New Folder
Mẹo : bạn có thể dùng hàm Dir để kiểm tra sự tồn tại của một tập tin/ thư mục nào đó :
Mã:
Sub ValidateFile()
If Dir("E:\My File.txt") = "" Then
Msgbox "File khong ton tai"
Else
Msgbox "File co ton tai"
End If
End Sub
Sub ValidateFolder()
If Dir("E:\My Folder", vbDirectory) = "" then
Msgbox "Folder khong co ton tai"
Else
Msgbox "Folder co ton tai"
End If
End Sub
** Có thể sử dụng dấu chấm hỏi hoặc dấu sao để đại diện cho 1 hoặc nhiều ký tự
VD: Dir("E:\My Folder\*.mdb") '>>> Nếu có nhiều hơn 1 file mdb thì hàm sẽ trả về tên file đầu tiên được tìm thấy. Bạn có thể dùng vòng lặp để liệt kê các tập tin trong một thư mục hay các thư mục trong 1 ổ đĩa, vấn đề này sẽ được đề cập trong phần khác