Hướng dẫn ngắn này sẽ trình bày cách sử dụng phương thức GetFileName của FileSystemObject.
Lấy tên tệp với VBA FileSystemObject
Bài học này sử dụng FileSystemObject. Để sử dụng nó, bạn sẽ cần đặt một tham chiếu đến thư viện thời gian chạy tập lệnh VB. Xem ở đây để biết thêm thông tin.
Để lấy tên tệp từ bất kỳ đường dẫn nào, bạn có thể sử dụng:
| 123456789101112 | Sub FSOGetFileName ()Dim FileName As StringLàm mờ FSO dưới dạng FileSystemObject mớiĐặt FSO = CreateObject ("Scripting.FileSystemObject")'Lấy tên tệpFileName = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")'Nhận tên tệp không có phần mở rộngFileNameWOExt = Left (FileName, InStr (FileName, ".") - 1)Kết thúc Sub |
Biến FileName sau đó sẽ giữ giá trị của “ExampleFile.txt”, biến FileNameWOExt sẽ không có phần mở rộng “ExampleFile”.
Nhận tên tệp mà không có phần mở rộng
Như đã lưu ý ở trên, để lấy tên tệp không có phần mở rộng, hãy sử dụng dòng mã này:
| 1 | FileNameWOExt = Left (FileName, InStr (FileName, ".") - 1) |
