VBA cho phép bạn kiểm tra xem tệp hoặc thư mục có tồn tại hay không bằng cách sử dụng Dir hàm số.
Sử dụng lệnh Dir để kiểm tra xem tệp có tồn tại hay không
Như chúng tôi đã đề cập trong phần giới thiệu, Dir chức năng cho phép chúng tôi kiểm tra xem một tệp đã chọn có tồn tại trên máy tính hay không. Đây là mã:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName thành chuỗiDim strFileExists dưới dạng chuỗistrFileName = "C: \ Users \ Nikola \ Desktop \ VBA posts \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Nếu strFileExists = "" ThìMsgBox "Tệp đã chọn không tồn tại"KhácMsgBox "Tệp đã chọn tồn tại"Kết thúc nếuKết thúc Sub |
Đầu tiên, chúng tôi đã gán đường dẫn tệp cho biến strFileName. Sau đó, chúng tôi sử dụng Dir hàm lấy tên tệp vào biến strFileExists. Nếu tệp tồn tại trong thư mục, tên của nó sẽ được gán cho biến chuỗi strFileExists. Nếu nó không tồn tại thì strFileExists sẽ vẫn trống. Cuối cùng, hộp thông báo xuất hiện thông báo cho chúng tôi biết tệp có tồn tại hay không.
Sử dụng lệnh Dir để kiểm tra xem thư mục có tồn tại không
Tương tự để kiểm tra xem một tệp có tồn tại hay không, bạn có thể kiểm tra xem một thư mục có tồn tại hay không. Bạn chỉ cần thêm một đối số vào Dir chỉ huy. Hãy xem mã:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists dưới dạng chuỗistrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA article \ Test Folder \"strFolderExists = Dir (strFolderName, vbDirectory)Nếu strFolderExists = "" ThìMsgBox "Thư mục đã chọn không tồn tại"KhácMsgBox "Thư mục đã chọn tồn tại"Kết thúc nếuKết thúc Sub |
Đầu tiên chúng tôi đã gán đường dẫn thư mục cho biến strFolderName. Sau đó, chúng tôi sử dụng Dir hàm lấy tên tệp vào biến strFileExists. Để kiểm tra một thư mục, chúng ta cần thêm đối số thứ hai vào hàm - vbDirecotry. Nếu thư mục tồn tại trong thư mục, tên của nó sẽ được gán cho biến strFolderExists. Nếu không strFolderExists sẽ vẫn trống.
