Xin macro xóa thư mục theo danh sách

[Vũ Thị Thuý Ly]

Xinh cháo các anh chị. Hiện tại mình đang có 1 danh sách các thư mục (giống file mẫu), tại danh sách quá nhiều nên giơ mình muốn xóa hàng loạt các thư mục đấy. Tên thư mục bao gồm cả tiếng Việt. Nhờ các anh chị giúp đỡ. Kính chúc các anh chị sức khỏe. Em xin cám ơn các anh chị

 

[HUONGHCKT]

Xinh cháo các anh chị. Hiện tại mình đang có 1 danh sách các thư mục (giống file mẫu), tại danh sách quá nhiều nên giơ mình muốn xóa hàng loạt các thư mục đấy. Tên thư mục bao gồm cả tiếng Việt. Nhờ các anh chị giúp đỡ. Kính chúc các anh chị sức khỏe. Em xin cám ơn các anh chị

Thử đoạn code này xem sao.

Option Explicit

Sub deleteFolder()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim currentPath As String
    Dim folderTest As String, Temp As String
    Dim i&
      
    currentPath = "D:\3.Soft\2.Win\"
    For i = 2 To Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
    Temp = Sheets("Sheet1").Cells(i, 2)
    folderTest = currentPath & "\" & Temp
     
    If (fso.FolderExists(folderTest)) Then
        fso.deleteFolder (folderTest)
    End If
    Next i
End Sub

 

[BuiQuangThuan]

Nhờ các anh chị giúp đỡ.

Thử code này coi.

Option Explicit
Sub Xoa_Forder()
    Dim i&, X As Object
    Set X = CreateObject("Scripting.FileSystemObject")
    With Sheet1
        For i = 2 To .Range("B" & Rows.Count).End(3).Row
            If X.FolderExists(.Range("B" & i).Value) = True Then
                X.DeleteFolder (.Range("B" & i).Value)
            End If
        Next
    End With
End Sub

 

[Vũ Thị Thuý Ly]

Thử đoạn code này xem sao.

Option Explicit

Sub deleteFolder()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim currentPath As String
    Dim folderTest As String, Temp As String
    Dim i&
     
    currentPath = "D:\3.Soft\2.Win\"
    For i = 2 To Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
    Temp = Sheets("Sheet1").Cells(i, 2)
    folderTest = currentPath & "\" & Temp
    
    If (fso.FolderExists(folderTest)) Then
        fso.deleteFolder (folderTest)
    End If
    Next i
End Sub

Xin cám ơn pro. Chúc pro sức khỏe

Bài đã được tự động gộp: 14/4/22

Thử code này coi.

Option Explicit
Sub Xoa_Forder()
    Dim i&, X As Object
    Set X = CreateObject("Scripting.FileSystemObject")
    With Sheet1
        For i = 2 To .Range("B" & Rows.Count).End(3).Row
            If X.FolderExists(.Range("B" & i).Value) = True Then
                X.DeleteFolder (.Range("B" & i).Value)
            End If
        Next
    End With
End Sub

Tuyệt vời, xin cám ơn pro. Chúc pro sức khỏe.

 

[batman1]

Xin cám ơn pro. Chúc pro sức khỏe

Bài đã được tự động gộp: 14/4/22

Tuyệt vời, xin cám ơn pro. Chúc pro sức khỏe.

Anh em cho thân mật đi, pro trịnh trọng quá. Mà đã chắc gì họ hiểu. Không phải ai cũng giỏi ngoại ngữ.

 

[Vũ Thị Thuý Ly]

Anh em cho thân mật đi, pro trịnh trọng quá. Mà đã chắc gì họ hiểu. Không phải ai cũng giỏi ngoại ngữ.

Vâng batman1. Cám ơn anh