tạo macro

[Hoacomay96]

các anh chị cho em hỏi cách viết lệnh tìm 1 thư mục xác định, nếu có thì xóa nó đi thì viết như thế nào, em không rành VB lắm, mong các anh chị chỉ cho.

 

[PhanTuHuong]

Thành viên chú ý gửi bài đúng chủ đề nhé!

 

[anhtuan1066]

Cho bạn 1 code khá đơn giản để làm điều này...

Sub Delete()
 Dim i As Integer
 With Application.FileSearch
   .LookIn = Range("I1").Value
   .Filename = Range("I2").Value
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            Kill .FoundFiles(i)
        Next i
    End If
 End With
End Sub

Trong đó tại:
Cell I1: gõ vào đường dẩn chứa file, ví dụ trên máy tôi: C:\Documents and Settings\AnhTuan\Desktop\Temp_1
Cell I2: Gõ vào tên file (có cả phần mở rộng), ví dụ là Test.xls
ANH TUẤN

 

[mymichau]

Em đã sữa được lỗi rồi. Nhờ Mod xóa dùm