Hàm VBA DIR – Giải thích dễ dàng với các ví dụ

Một hàm như vậy là hàm DIR của VBA .

Chức năng VBA Dir làm gì?

Cú pháp của hàm VBA DIR

Dir [(tên đường dẫn [, thuộc tính])]

• pathname : Đây là một đối số tùy chọn. Đây có thể là tên tệp, tên thư mục hoặc tên thư mục. Nếu không tìm thấy tên đường dẫn, hàm VBA DIR trả về một chuỗi có độ dài bằng không (“”)
• thuộc tính : Đây là một đối số tùy chọn. Bạn có thể sử dụng đối số này để chỉ định một số thuộc tính và hàm DIR sẽ trả về tên tệp dựa trên các thuộc tính đó. Ví dụ, nếu bạn muốn một danh sách tất cả các tệp ẩn hoặc các tệp chỉ đọc (cùng với các tệp không có thuộc tính), bạn cần xác định rằng trong đối số này.

Sử dụng ký tự đại diện với hàm DIR

• Bạn muốn lấy tên tệp của một loại tệp cụ thể (chẳng hạn như .XLSX hoặc .PPTX)
• Khi bạn có hậu tố / tiền tố cụ thể trong tên tệp và bạn muốn lấy tên của các tệp / thư mục / thư mục này. Ví dụ: nếu bạn muốn tên của tất cả các tệp có tiền tố 2019 trong đó, bạn có thể làm điều đó bằng ký tự đại diện.

1. * (dấu hoa thị)  – Nó đại diện cho bất kỳ số ký tự nào. Ví dụ: 2019 * sẽ cung cấp cho bạn tên của tất cả các tệp có tiền tố 2019 trong đó.
2. ? (dấu chấm hỏi)  – Nó đại diện cho một ký tự đơn. Ví dụ: 2019? sẽ cung cấp cho bạn tên của tất cả các tệp bắt đầu với năm 2019 và có thêm một ký tự trong tên (chẳng hạn như 2019A, 2019B, 2019C, v.v.)

Hàm VBA DIR – Ví dụ

Ví dụ 1 – Lấy tên tệp từ đường dẫn của nó

Sub GetFileNames()
Dim FileName As String
FileName = Dir("C:UserssumitDesktopTestExcel File A.xlsx")
MsgBox FileName
End Sub

Sub CheckFileExistence()
Dim FileName As String
FileName = Dir("C:UserssumitDesktopTestExcel File A.xlsx")

If FileName <> "" Then
    MsgBox FileName
Else
    MsgBox "File Doesn't Exist"
End If

End Sub

Ví dụ 2 – Kiểm tra xem một thư mục có tồn tại hay không (và tạo ra nếu nó không có)

Sub CheckDirectory()
Dim PathName As String
Dim CheckDir As String

PathName = "C:UserssumitDesktopTest"
CheckDir = Dir(PathName, vbDirectory)

If CheckDir <> "" Then
    MsgBox CheckDir & " exists"
Else
    MsgBox "The directory doesn't exist"
End If

End Sub

Sub CreateDirectory()
Dim PathName As String
Dim CheckDir As String

PathName = "C:UserssumitDesktopTest"
CheckDir = Dir(PathName, vbDirectory)

If CheckDir <> "" Then
    MsgBox CheckDir & " folder exists"
Else
    MkDir PathName
    MsgBox "A folder has been created with the name" & CheckDir
End If

End Sub

Ví dụ 3 – Lấy tên của tất cả các tệp và thư mục trong một thư mục

Sub GetAllFile&FolderNames()
Dim FileName As String
FileName = Dir("C:UserssumitDesktopTest", vbDirectory)

Do While FileName <> ""
    Debug.Print FileName
    FileName = Dir()
Loop
End Sub

Ví dụ 4 – Lấy tên của tất cả các tệp trong một thư mục

Sub GetAllFileNames()
Dim FileName As String
FileName = Dir("C:UserssumitDesktopTest")

Do While FileName <> ""
    Debug.Print FileName
    FileName = Dir()
Loop
End Sub

Ví dụ 5 – Lấy tên của tất cả các thư mục con trong một thư mục

Sub GetSubFolderNames()
Dim FileName As String
Dim PathName As String

PathName = "C:UserssumitDesktopTest"
FileName = Dir(PathName, vbDirectory)

Do While FileName <> ""
If GetAttr(PathName & FileName) = vbDirectory Then
    Debug.Print FileName
End If
FileName = Dir()
Loop
End Sub

Ví dụ 6 – Lấy tệp Excel đầu tiên từ một thư mục

Sub GetFirstExcelFileName()
Dim FileName As String
Dim PathName As String

PathName = "C:UserssumitDesktopTest"
FileName = Dir(PathName & "*.xls*")
MsgBox FileName
End Sub

Ví dụ 7 – Lấy tên của tất cả tệp Excel trong một thư mục

Sub GetAllFileNames()
Dim FolderName As String
Dim FileName As String
FolderName = "C:UserssumitDesktopTest"
FileName = Dir(FolderName & "*.xls*")

Do While FileName <> ""
    Debug.Print FileName
    FileName = Dir()
Loop

End Sub

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.