VBA EXCEL - Bài 30. Làm việc với Folder và File - Bui The Tam

FSO (FileSystemObject) là công cụ dùng để xử lý những vấn đề liên quan đến Drive, Folders và Files
1/ Cách kích hoạt FileSystemObject trong VBA
2/ Mã thiết lập biến đối tượng F làm đối tượng FileSystemObject sau khi đã kích hoạt:
3/ Các đối tượng có thể truy cập
Đối tượng Drive
Đối tượng Folder
Đối tượng File
Đối tượng TextStream
5/ Phương thức FSO
Playlist “Tuyệt đỉnh Excel”
• Tuyệt đỉnh Excel

[@truongtu8734]

Cám ơn Thầy! Chúc Thầy và gia đình nhiều sức khỏe !!!

[@FunKids-Ltg]

cám ơn thầy, bài học rất dễ hiểu

[@buithetam8634]

Sub FolderFile()
Dim F As New FileSystemObject
Dim Tep As File
Dim ThuMuc As Folder
Dim doan As Integer
doan = InputBox("Chon doan chuong trình can chay: ")
On doan GoTo line1, line2, line3, line4, line5
line1: ' Liet ke cac tep trong thu muc
Set ThuMuc = F.GetFolder("C:\Test")
For Each Tep In ThuMuc.Files
Debug.Print Tep.Name
Next Tep
Exit Sub
line2: ' Tao thu muc moi
If F.FolderExists("C:\Test\BaiGiang30") Then
MsgBox "THU MUC DA CO"
Else
F.CreateFolder ("C:\Test\BaiGiang30")
End If
MsgBox "Da tao thu muc BaiGiang30"
Exit Sub
line3: ' Liet ke cac thu muc con cua mot thu muc
Dim MySubFolder As Folder
Set ThuMuc = F.GetFolder("C:\Test")
For Each MySubFolder In ThuMuc.SubFolders
Debug.Print MySubFolder.Name
Next MySubFolder
Exit Sub
line4: ' Copy 1 tep tu Folder nay sang Folder khac
F.CopyFile Source:="C:\TEST\BaoCao.txt", _
Destination:="C:\TEST\BaiGiang30\BaoCao1.txt"
MsgBox "Da copy xong tep va doi ten"
Exit Sub
line5: ' Copy nhieu file tu Folder1 sang Folder2
Set ThuMuc = F.GetFolder("C:\Test")
For Each Tep In ThuMuc.Files
If F.GetExtensionName(Tep) = "txt" Then
F.CopyFile Source:=F.GetFile(Tep), _
Destination:="C:\Test\BaiGiang30\" & Tep.Name, Overwritefiles:=True ' False co canh bao
End If
Next Tep
MsgBox "Da copy xong nhieu tep tu Folder1 sang Folder2"
End Sub