Code xóa các folder trong cùng thư mục file excel (3 người xem)

[ducdinh1987]

Chào anh (chị), anh (chị) nào biết code xóa thư mục không chỉ em với:
trong folder 1 có 5 mục: folder 1.1, folder 1.2, folder 1.3, folder 1.4 và file excel tên book 1, viết code vào book 1 để xóa các folder 1.1, folder 1.2, folder 1.3 và folder 1.4.
các folder này nằm theo đường dẫn của file excel.

cảm ơn anh (chị) nhiều, chúc anh (chị) ngày đầu tuần nhiều điều may mắn !

 

[Hai Lúa Miền Tây]

Chào anh (chị), anh (chị) nào biết code xóa thư mục không chỉ em với:
trong folder 1 có 5 mục: folder 1.1, folder 1.2, folder 1.3, folder 1.4 và file excel tên book 1, viết code vào book 1 để xóa các folder 1.1, folder 1.2, folder 1.3 và folder 1.4.
các folder này nằm theo đường dẫn của file excel.

cảm ơn anh (chị) nhiều, chúc anh (chị) ngày đầu tuần nhiều điều may mắn !

Bạn tham khảo bài sau nhé
[h=1]Code xoá Thư mục ?[/h]

 

[ducdinh1987]

Cảm ơn anh, em đọc bài viết đó rồi, nhưng nó xóa thư mục cố định. khi em copy folder 1 bất cứ ở đâu thì em vẫn dùng được lệnh và lệnh đó như thế nào, anh giúp em cụ thể luôn được ko?
Em cảm ơn.

 

[Hoàng Trọng Nghĩa]

Cảm ơn anh, em đọc bài viết đó rồi, nhưng nó xóa thư mục cố định. khi em copy folder 1 bất cứ ở đâu thì em vẫn dùng được lệnh và lệnh đó như thế nào, anh giúp em cụ thể luôn được ko?
Em cảm ơn.

Ví dụ như bạn dùng thủ tục này:

Sub Test()
  Dim MyFolder As String, Arr
  On Error Resume Next
 [B][COLOR=#ff0000] MyFolder = "D:\CHINH_2011\DATA\Bao cao"[/COLOR][/B]
  Arr = Split(MyFolder, "\")
  CreateObject("Scripting.FileSystemObject").DeleteFolder Arr(0) & "\" & Arr(1)
End Sub

Thì với dòng màu đỏ bạn có thể tùy biến theo đường dẫn thực tế. Cẩn thận với những cách xóa này, vì nó có thể dẫn đến tình trạng xóa những tài liệu quan trọng trong những thư mục chứa trong đường dẫn đó.

============================================================================

Theo tôi, nếu cùng thư mục thì cần quái gì đến code, Ctrl+A để chọn tất cả các thư mục rồi delete là xong!