Mục lục
Mô tả Dir
Trả về tên tệp đầu tiên phù hợp với tên đường dẫn và thuộc tính được chỉ định.
Ví dụ về Dir đơn giản
| 1 | MsgBox Dir ("") |
Thao tác này sẽ trả về tên tệp đầu tiên trên đường dẫn hiện tại.
Cú pháp Dir
Trong VBA Editor, bạn có thể nhập “Dir (” để xem cú pháp của Hàm Dir:
Hàm Dir chứa 2 đối số:
PathName: [Tùy chọn] Một biểu thức chuỗi đại diện cho một thư mục / thư mục / ổ đĩa.
Thuộc tính: [Tùy chọn] Chỉ định các thuộc tính tệp. Nếu bị bỏ qua, trả về các tệp phù hợp với tên đường dẫn nhưng không có thuộc tính.
Các Thuộc tính cài đặt đối số là:
| Hằng số | Giá trị | Sự miêu tả |
|---|---|---|
| vbNormal | 0 | (Mặc định) Chỉ định các tệp không có thuộc tính. |
| vbReadOnly | 1 | Chỉ định các tệp chỉ đọc ngoài các tệp không có thuộc tính. |
| vbHidden | 2 | Chỉ định các tệp ẩn ngoài các tệp không có thuộc tính. |
| vbSystem | 4 | Chỉ định các tệp hệ thống ngoài các tệp không có thuộc tính. Không khả dụng trên Macintosh. |
| vbVolume | 8 | Chỉ định nhãn khối lượng; nếu bất kỳ thuộc tính nào khác được chỉ định,vbVolume bị bỏ qua. Không khả dụng trên Macintosh. |
| vbDirectory | 16 | Chỉ định các thư mục hoặc thư mục ngoài các tệp không có thuộc tính. |
| vbAlias | 64 | Tên tệp được chỉ định là một bí danh. Chỉ có trên Macintosh. |
Lập trình VBA | Code Generator làm việc cho bạn!
Ví dụ về Hàm VBA Dir trong Excel
Để liệt kê các thư mục và tệp trên ổ C, bạn có thể sử dụng đoạn mã sau.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i As IntegerĐặt rng = Range ("A1")fileName = Dir ("C: \", vbDirectory)i = 1LàmfullName = "C: \" & fileNamerng.Offset (i, 0) = fileNamerng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)fileName = DirIf fileName = "" Then Exit Doi = i + 1VòngKết thúc Sub |
Kết quả sẽ tương tự như sau.
Hàm VBA Dir trong Access VBA
Hàm VBA Dir hoạt động trong Access VBA theo cách tương tự như trong Excel VBA.
| 123456789 | Hàm CreateDirectory (strP As String) As BooleanNếu Len (Dir (strP, vbDirectory)) = 0 ThìMkDir strPKết thúc nếuCreateDirectory = TrueChức năng thoátkết thúc:CreateDirectory = SaiChức năng kết thúc |
