Trong bài viết này chúng ta cùng tìm hiểu cách ứng dụng VBA trong việc xóa các nội dung trong một thư mục trên máy tính. Việc này rất hữu dụng khi chúng ta thường xuyên phải tương tác trên đối tượng thư mục trong VBA, thay vì xóa bằng tay từng mục thì chúng ta có thể sử dụng VBA để tự động xóa tất cả các nội dung trong thư mục đó. Đặc biệt hữu ích khi làm việc với những công việc có sử dụng lệnh trích xuất nội dung ra nhiều file nằm trong cùng 1 thư mục.
Tham khảo bài viết: Lệnh trích xuất dữ liệu hàng loạt ra file PDF theo mỗi đối tượng
1. Nguyên tắc thực hiện
Chúng ta cần làm việc theo 2 đối tượng chính:
Thư mục: Xác định đúng đường dẫn tới thư mục đó
Các file trong thư mục: Mỗi file đều có 1 điểm chung là có dấu chấm (thể hiện đuôi file đó là dạng file nào).
Chú ý:
Cần kiểm tra xem trong thư mục có file nào không, vì nếu không chứa file thì không cần thực hiện thao tác xóa.
Sau khi hoàn thành lệnh xóa các thư mục cần có thông báo đã hoàn thành, để nhắc cho chúng ta biết câu lệnh đã được thực hiện
2. Câu lệnh VBA
View the code on Gist.
Trong câu lệnh trên, chúng ta có thể thiết lập việc tùy chọn đường dẫn tới thư mục cần xóa nếu chưa rõ đường dẫn chính xác, như vậy có thể làm chậm thủ tục nhưng sẽ tăng tính chính xác.
Lưu ý:
Việc xóa file trong Folder bằng câu lệnh trên cần lưu ý: Xóa tất cả các file, không phân biệt loại file là gì.
Muốn xác định rõ loại file cần xóa, cần tùy biến lại nội dung *.* thành *.đuôi file
Với sứ mệnh: ” Mang cơ hội phát triển kỹ năng, phát triển nghề nghiệp tới hàng triệu người “, đội ngũ phát triển đã và đang làm việc với những học viện, trung tâm đào tạo, các chuyên gia đầu ngành để nghiên cứu và xây dựng lên các chương trình đào tạo từ cơ bản đến chuyên sâu xung quanh các lĩnh vực: Tin học văn phòng, Phân tích dữ liệu, Thiết kế, Công nghệ thông tin, Kinh doanh, Marketing, Quản lý dự án…
Gitiho tự hào khi được đồng hành cùng:
50+ khách hàng doanh nghiệp lớn trong nhiều lĩnh vực như: Vietinbank, Vietcombank, BIDV, VP Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomoto Việt Nam, Messer,…