Ví dụ về FileSystemObject trong VBA

FileSystemObject (FSO) là một công cụ trong thư viện Microsoft Scripting Runtime (scrrun.dll). Đây là một trong những công cụ chuyên biệt chuyên xử lý về Drive, Folder và File. Để rõ hơn, mời bạn đọc theo dõi một số ví dụ về FileSystemObject trong VBA được Taimienphi.vn dưới thiệu trong bài viết dưới đây.
Sử dụng FileSystemObject trong VBA giúp người sử dụng dễ dàng kiểm tra xem các file hoặc thư mục có tồn tại hay không, giúp bạn tạo thư mục mới trong vị trí đã chọn, hay có thể lấy danh sách tất cả các file trong một thư mục, hoặc có thể lấy danh sách tất cả các thư mục con trong một thư mục cụ thể...

Cách dùng FileSystemObject trong VBA Excel

Ví dụ về FileSystemObject trong VBA

Dưới đây là một số ví dụ để bạn dễ hình dung hơn cách sử dụng FileSystemObject trong VBA.

Ví dụ 1: Kiểm tra xem các file hoặc thư mục có tồn tại hay không

Đoạn mã dưới đây sẽ kiểm tra xem thư mục có tên Test có tồn tại hay không trong vị trí cụ thể đã chỉ định.

Nếu thư mục tồn tại, điều kiện IF là True và nó sẽ hiển thị thông báo "thư mục tồn tại" trong hộp thoại thông báo. Nếu thư mục không tồn tại nó sẽ hiển thị thông báo "thư mục không tồn tại".

Sub CheckFolderExist()

Dim MyFSO As FileSystemObject

Set MyFSO = New FileSystemObject

If MyFSO.FolderExists("C:\Users\sumit\Desktop\Test") Then

MsgBox "thư mục tồn tại"

Else

MsgBox "thư mục không tồn tại"

End If

End Sub

Tương tự, chúng ta cũng có thể kiểm tra xem một file có tồn tại hay không.

Đoạn mã dưới đây kiểm tra xem file có tên Test.xlsx có tồn tại trong thư mục cụ thể hay không:

Sub CheckFileExist()

Dim MyFSO As FileSystemObject

Set MyFSO = New FileSystemObject

If MyFSO.FileExists("C:\Users\sumit\Desktop\Test\Test.xlsx") Then

MsgBox "File có tồn tại"

Else

MsgBox "File không tồn tại"

End If

End Sub

Ví dụ 2: Tạo thư mục mới trong vị trí đã chỉ định

Đoạn mã dưới đây tạo thư mục có tên Test trong ổ C trên hệ thống (chúng ta sẽ phải chỉ định đường dẫn trên hệ thống của mình, nơi muốn tạo thư mục).

Sub taothumuc()

Dim MyFSO As FileSystemObject

Set MyFSO = New FileSystemObject

MyFSO.taothumuc ("C:\Users\sumit\Desktop\Test")

End Sub

Đoạn mã trên đây sẽ trả về thông báo lỗi trong trường hợp nếu thư mục đã tồn tại.

Đoạn mã dưới đây kiểm tra xem thư mục đã tồn tại hay chưa và tạo thư mục nếu chưa có. Trong trường hợp nếu thư mục đã tồn tại, nó sẽ hiển thị thông báo lỗi. Để kiểm tra thư mục đã tồn tại hay chưa, chúng ta sử dụng phương thức FolderExists của FSO:

Sub taothumuc()

Dim MyFSO As FileSystemObject

Set MyFSO = New FileSystemObject

If MyFSO.FolderExists("C:\Users\sumit\Desktop\Test") Then

MsgBox "thư mục đã tồn tại"

Else

MyFSO.CreateFolder ("C:\Users\sumit\Desktop\Test")

End If

End Sub

Ví dụ 3: Lấy danh sách tên tất cả các file trong một thư mục

Sử dụng đoạn mã dưới đây để hiển thị tên của tất cả các file trong một thư mục cụ thể:

Sub laytenfile ()

Dim MyFSO As FileSystemObject

Dim MyFile As File

Dim MyFolder As Folder

Set MyFSO = New Scripting.FileSystemObject

Set MyFolder = MyFSO.GetFolder("C:\Users\sumit\Desktop\Test")

For Each MyFile In MyFolder.Files

Debug.Print MyFile.Name

Next MyFile

End Sub

Đoạn mã này phức tạp hơn một chút so với các đoạn mã mà Taimienphi.vn đã giới thiệu ở trên.

Như đã đề cập ở trên, khi tham chiếu thư viện Microsoft Scripting Runtime Library, chúng ta có thể sử dụng FileSystemObject cũng như tất cả các đối tượng khác (như File và Folder).

Trong đoạn mã trên, chúng ta sử dụng 3 đối tượng là FileSystemObject, File và Folder. Điều này cho phép chúng ta đi qua từng file trong thư mục được chỉ định sau đó sử dụng thuộc tính name để lấy danh sách tên tất cả các file.

Lưu ý: trong đoạn mã trên chúng ta đang sử dụng Debug.Print để lấy tên của tất cả các file. Các tên này sẽ được liệt kê và hiển thị trên cửa sổ trên VB Editor.

Ví dụ 4: Lấy danh sách tất cả các thư mục con trong một thư mục cụ thể

Đoạn mã dưới đây sẽ hiển thị tên tất cả các thư mục con trong thư mục cụ thể được chỉ định:

Sub laytenthumuccon ()

Dim MyFSO As FileSystemObject

Dim MyFile As File

Dim MyFolder As Folder

Dim MySubFolder As Folder

Set MyFSO = New Scripting.FileSystemObject

Set MyFolder = MyFSO.GetFolder("C:\Users\sumit\Desktop\Test")

For Each MySubFolder In MyFolder.SubFolders

Debug.Print MySubFolder.Name

Next MySubFolder

End Sub

Ví dụ 5: Sao chép file từ thư mục này sang thư mục khác

Đoạn mã dưới đây sao chép file từ thư mục Source sang thư mục Destination:

Sub saochepfile()

Dim MyFSO As FileSystemObject

Dim SourceFile As String

Dim DestinationFolder As String

Set MyFSO = New Scripting.FileSystemObject

SourceFile = "C:\Users\sumit\Desktop\Source\SampleFile.xlsx"

DestinationFolder = "C:\Users\sumit\Desktop\Destination"

MyFSO.CopyFile Source:=SourceFile, Destination:=DestinationFolder & "\SampleFileCopy.xlsx"

End Sub

Trong đoạn mã trên chúng ta sử dụng 2 biến SourceFile và DestinationFolder.

Trong đó, biến Source File giữ địa chỉ của file mà chúng ta muốn sao chép và biến DestinationFolder giữ địa chỉ của thư mục mà chúng ta muốn sao chép file vào.

Lưu ý: khi sao chép file, nếu chỉ cung cấp tên thư mục đích thôi là chưa đủ. Chúng ta phải chỉ định tên file, và có thể sử dụng cùng một tên file hoặc thay đổi. Trong ví dụ trên Taimienphi.vn sao chép file và đặt tên là SampleFileCopy.xlsx.

Ví dụ 6: Sao chép tất cả các file từ thư mục này sang thư mục khác

Đoạn mã dưới đây sao chép tất cả các file từ thư mục Source sang thư mục Destination:

Sub CopyAllFiles()

Dim MyFSO As FileSystemObject

Dim MyFile As File

Dim SourceFolder As String

Dim DestinationFolder As String

Dim MyFolder As Folder

Dim MySubFolder As Folder

SourceFolder = "C:\Users\sumit\Desktop\Source"

DestinationFolder = "C:\Users\sumit\Desktop\Destination"

Set MyFSO = New Scripting.FileSystemObject

Set MyFolder = MyFSO.GetFolder(SourceFolder)

For Each MyFile In MyFolder.Files

MyFSO.CopyFile Source:=MyFSO.GetFile(MyFile), _

Destination:=DestinationFolder & "\" & MyFile.Name, Overwritefiles:=False

Next MyFile

End Sub

Lưu ý: Trong phương thức MyFSO.CopyFile, chúng ta chỉ định thuộc tính Overwritefiles là False (mặc định là True). Điều này để đảm bảo trong trường hợp nếu file đã có trong thư mục, file đó sẽ không được sao chép. Nếu xóa Overwritefiles hoặc thiết lập giá trị là False, trong trường hợp nếu có các file bị trùng trong thư mục đích có cùng tên, các file này sẽ bị ghi đè.

Nếu chỉ muốn sao chép các file của một tiện ích mở rộng cụ thể, chúng ta có thể làm được điều này bằng cách sử dụng lệnh IF Then để kiểm tra xem tiện ích mở rộng có phải là xlsx hay không.

Sub CopyExcelFilesOnly()

Dim MyFSO As FileSystemObject

Dim MyFile As File

Dim SourceFolder As String

Dim DestinationFolder As String

Dim MyFolder As Folder

Dim MySubFolder As Folder

SourceFolder = "C:\Users\sumit\Desktop\Source"

DestinationFolder = "C:\Users\sumit\Desktop\Destination"

Set MyFSO = New Scripting.FileSystemObject

Set MyFolder = MyFSO.GetFolder(SourceFolder)

For Each MyFile In MyFolder.Files

If MyFSO.GetExtensionName(MyFile) = "xlsx" Then

MyFSO.CopyFile Source:=MyFSO.GetFile(MyFile), _

Destination:=DestinationFolder & "\" & MyFile.Name, Overwritefiles:=False

End If

Next MyFile

End Sub

Trên đây là một vài ví dụ về FileSystemObject trong VBA cũng như cách sử dụng của nó. Nêu bạn đang quan tâm về VBA trong Excel thì không nên bỏ lỡ những bài viết hay đã được Taimienphi.vn giới thiệu.

- Tất tần tật về VBA trong Excel Phần 1
- Tất tần tật về VBA trong Excel Phần 2
- Tất tần tật về VBA trong Excel phần 3

https://thuthuat.taimienphi.vn/vi-du-ve-filesystemobject-trong-vba-46533n.aspx

Tác giả: Trấn thành     (4.0★- 3 đánh giá)  ĐG của bạn?

  

Bài viết liên quan

Hàm DIR trong VBA (Phần 2)
Excel - Cách mở VBA trong Excel
Tất tần tật về VBA trong Excel (Phần 1)
Hàm TRIM trong Excel VBA
Tất tần tật về VBA trong Excel (Phần 3)
Từ khoá liên quan:

vi du ve FileSystemObject trong VBA

, FileSystemObject trong VBA, vi du ve FSO trong VBA,

SOFT LIÊN QUAN
  • VBA cho Powerpoint

    Hướng dẫn viết mã VBA trong Powerpoint

    VBA cho Powerpoint là tài liệu giới thiệu về VBA và Powerpoint, cách sử dụng VBA trong Powerpoint nhằm tăng tính điều khiển cho ứng dụng này. VBA là ngôn ngữ lập trình có thể chạy trong ứng dụng chủ với chức năng hỗ trợ mà không phải là một chương trình độc lập, có khả năng tạo các thư viện động, và các phân bản cho các mô-đun...

Tin Mới

  • Cách định dạng đường viền cho bảng Excel chi tiết nhất

    Thao tác chèn bảng trên Excel vô cùng quen thuộc với bất kỳ ai khi làm việc với công cụ văn phòng. Chúng ta có thể tùy ý thiết kế giao diện, làm bảng nổi bật hơn trong nội dung bằng cách định dạng đường viền cho bảng Excel. Vậy bạn đã biết cách để định dạng đường viền cho bảng trên ứng dụng Excel chưa.

  • Cách chèn dấu ngoặc trong Excel nhanh nhất

    Nếu bạn đang sử dụng Excel muốn chèn dấu ngoặc để hoàn thiện các biểu thức toán học, đang gặp khó khăn khi không thấy dấu ngoặc. Hãy theo dõi bài viết dưới đây để có thể chèn dấu ngoặc trong Excel nhanh chóng, dễ dàng

  • Cách tạo lịch, Calendar trên Google Sheets nhanh chóng

    Cách tạo lịch trên Google Sheets giúp bạn đọc dễ dàng tạo ra một bảng tính bao gồm các ngày tháng năm để điền các thông tin quan trọng, tạo lời nhắc cho bản thân. Việc tạo lịch trên Google Sheets sẽ hỗ trợ bạn đọc rất nhiều trong công việc giúp bạn sắp xếp công việc, lịch hẹn dễ dàng hơn.

  • Lời bài hát Hành Khúc Thanh Niên Tình Nguyện

    Với lời bài hát Hành Khúc Thanh Niên Tình Nguyện ý nghĩa, truyền được cảm hứng cho thế hệ trẻ nên cứ vào ngày 26/3 lại được cất lên. Các bạn có thể xem lời bài hát này để có thể hát theo, giúp chương trình diễn ra tốt đẹp, hào hùng hơn.