Cách dùng FileSystemObject trong VBA Excel
Ví dụ về FileSystemObject trong VBA
Dưới đây là một số ví dụ sửa lỗi để bạn dễ hình dung hơn cách sử dụng FileSystemObject trong VBA.
Ví dụ 1: Kiểm tra xem kích hoạt các file full crack hoặc thư mục có tồn tại hay không
Đoạn mã ứng dụng dưới đây như thế nào 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ể nhanh nhất đã chỉ định.
tất toán Nếu thư mục tồn tại kỹ thuật , điều kiện IF là True dịch vụ và nó hỗ trợ sẽ hiển thị thông báo "thư mục tồn tại" trong hộp thoại thông báo download . ở đâu tốt Nếu thư mục không tồn tại nó cài đặt 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:UserssumitDesktopTest") 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ự nguyên nhân , chúng ta tốc độ cũng kiểm tra có thể kiểm tra xem một file có tồn tại hay không.
Đoạn mã hay nhất 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:UserssumitDesktopTestTest.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í tốc độ đã chỉ định
Đoạn mã danh sách dưới đây tạo thư mục có tên Test trong ổ C trên hệ thống (chúng ta quảng cáo sẽ phải chỉ định đường dẫn trên hệ thống tài khoản của mình quản lý , nơi muốn tạo thư mục).
Sub taothumuc()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
MyFSO.taothumuc ("C:UserssumitDesktopTest")
End Sub
Đoạn mã trên đây trên điện thoại sẽ trả về thông báo lỗi trong trường hợp tối ưu nếu thư mục full crack đã tồn tại.
Đoạn mã địa chỉ dưới đây kiểm tra xem thư mục tự động đã tồn tại hay chưa thanh toán và tạo thư mục lấy liền nếu chưa có kinh nghiệm . Trong trường hợp hướng dẫn nếu thư mục quảng cáo đã tồn tại download , nó tính năng sẽ hiển thị thông báo lỗi trên điện thoại . Để kiểm tra thư mục địa chỉ đã tồn tại hay chưa giá rẻ , chúng ta sử dụng phương thức FolderExists dữ liệu của FSO:
Sub taothumuc()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
If MyFSO.FolderExists("C:UserssumitDesktopTest") Then
MsgBox "thư mục mới nhất đã tồn tại"
Else
MyFSO.CreateFolder ("C:UserssumitDesktopTest")
End If
End Sub
Ví dụ 3: Lấy danh sách tên vô hiệu hóa tất cả mẹo vặt các file trong một thư mục
Sử dụng đoạn mã đăng ký vay dưới đây vô hiệu hóa để hiển thị tên đăng ký vay của hỗ trợ tất cả tăng 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:UserssumitDesktopTest")
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 thanh toán với vô hiệu hóa các đoạn mã ở đâu tốt mà Chúng tôi download đã giới thiệu ở trên.
Như kiểm tra đã đề cập ở trên tài khoản , khi tham chiếu thư viện Microsoft Scripting Runtime Library ở đâu nhanh , chúng ta chia sẻ có thể sử dụng FileSystemObject nguyên nhân cũng như download tất cả trực tuyến các đối tượng khác (như File xóa tài khoản và Folder).
Trong đoạn mã trên tăng tốc , chúng ta sử dụng 3 đối tượng là FileSystemObject giảm giá , File miễn phí và Folder sửa lỗi . Điều này cho phép chúng ta đi qua từng file trong thư mục dữ liệu được chỉ định giá rẻ sau đó sử dụng thuộc tính name nhanh nhất để lấy danh sách tên link down tất cả xóa tài khoản các file.
Lưu ý: trong đoạn mã trên chúng ta đang sử dụng Debug.Print thanh toán để lấy tên hỗ trợ của sửa lỗi tất cả an toàn các file ở đâu uy tín . Các tên này mẹo vặt sẽ an toàn được liệt kê hướng dẫn và hiển thị trên cửa sổ trên VB Editor.
Ví dụ 4: Lấy danh sách ở đâu tốt tất cả tính năng các thư mục con trong một thư mục cụ thể
Đoạn mã cài đặt dưới đây vô hiệu hóa sẽ hiển thị tên tính năng tất cả ứng dụng các thư mục con trong thư mục cụ thể xóa tài khoản đượ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:UserssumitDesktopTest")
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ã ở đâu nhanh 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:UserssumitDesktopSourceSampleFile.xlsx"
DestinationFolder = "C:UserssumitDesktopDestination"
MyFSO.CopyFile Source:=SourceFile kỹ thuật , Destination:=DestinationFolder & "SampleFileCopy.xlsx"
End Sub
Trong đoạn mã trên chúng ta sử dụng 2 biến SourceFile nạp tiền và DestinationFolder.
Trong đó mật khẩu , biến Source File giữ địa chỉ hỗ trợ của file ở đâu uy tín mà chúng ta muốn sao chép hay nhất và biến DestinationFolder giữ địa chỉ khóa chặn của thư mục giá rẻ mà chúng ta muốn sao chép file vào.
Lưu ý: khi sao chép file cài đặt , cài đặt nếu chỉ cung cấp tên thư mục đích thôi là chưa đủ trực tuyến . Chúng ta phải chỉ định tên file dịch vụ , trực tuyến và mật khẩu có thể sử dụng cùng một tên file ở đâu nhanh hoặc thay đổi phải làm sao . Trong ví dụ trên Chúng tôi sao chép file thanh toán và đặt tên là SampleFileCopy.xlsx.
Ví dụ 6: Sao chép giả mạo tất cả công cụ các file từ thư mục này sang thư mục khác
Đoạn mã tất toán dưới đây sao chép qua mạng tất cả kích hoạt 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:UserssumitDesktopSource"
DestinationFolder = "C:UserssumitDesktopDestination"
Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder(SourceFolder)
For Each MyFile In MyFolder.Files
MyFSO.CopyFile Source:=MyFSO.GetFile(MyFile) sử dụng , _
Destination:=DestinationFolder & "" & MyFile.Name qua mạng , Overwritefiles:=False
Next MyFile
End Sub
Lưu ý: Trong phương thức MyFSO.CopyFile tải về , chúng ta chỉ định thuộc tính Overwritefiles là False (mặc định là True) quản lý . Điều này trực tuyến để đảm bảo trong trường hợp vô hiệu hóa nếu file bản quyền đã có trong thư mục tối ưu , file đó ở đâu uy tín sẽ không an toàn được sao chép kiểm tra . vô hiệu hóa Nếu xóa Overwritefiles hướng dẫn hoặc thiết lập giá trị là False quảng cáo , trong trường hợp kích hoạt nếu có giảm giá các file bị trùng trong thư mục đích có cùng tên dữ liệu , qua app các file này hỗ trợ sẽ bị ghi đè.
bản quyền Nếu chỉ muốn sao chép cài đặt các file ứng dụng của một tiện ích mở rộng cụ thể cài đặt , chúng ta bản quyền có thể làm download được điều này bằng cách sử dụng lệnh IF Then tải về để 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:UserssumitDesktopSource"
DestinationFolder = "C:UserssumitDesktopDestination"
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) an toàn , _
Destination:=DestinationFolder & "" & MyFile.Name qua app , Overwritefiles:=False
End If
Next MyFile
End Sub
chia sẻ Trên đây là một vài ví dụ về FileSystemObject trong VBA phải làm sao cũng như cách sử dụng ở đâu tốt của nó hay nhất . Nêu bạn đang quan tâm về VBA trong Excel danh sách thì không nên bỏ lỡ tải về những bài viết hay tốc độ đã hay nhất được Chúng tôi 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
4.8/5 (85 votes)
