xin code xóa File .xls của 1 thư mục trong ổ đĩa D:\ (2 người xem)

[quoc nhat]

Chào các thầy cô và các anh chị
Mọi người có thể viết giùm em code xóa file đuôi .xls chứa trong 1 thư mục chỉ định trong ổ đĩa D:\ được không ạ.
Việc là hôm nọ em tìm được code Backup sao lưu File của thầy NDU nhưng tại 1 lần Backup là nó tạo thêm 1 File mới nên tốn dung luợng bộ nhớ quá.
Em muốn 1 lần Sao lưu mới thì File đã sao lưu trước (củ) sẽ bị xóa để lưu lại file mới chỉ chứa duy nhất một File trong folder "Sao Lưu " này thôi
Giúp em với ạ!

 

[Miền Cát Trắng]

Mời bạn đến đây tham khảo.

Click !!!!!!!!!!!!!!!!

nữa là: Đây!

 

[quoc nhat]

Click !!!!!!!!!!!!!!!!

nữa là: Đây!

Cảm ơn anh
Thực ra em đã tham khảo qua các Topic này rồi nhưng chưa tìm đc cái code nào phù hợp cả nên nhờ mọi người giúp thôi.
Giúp em với mọi người

 

[siwtom]

Chào các thầy cô và các anh chị
Mọi người có thể viết giùm em code xóa file đuôi .xls chứa trong 1 thư mục chỉ định trong ổ đĩa D:\ được không ạ.
Việc là hôm nọ em tìm được code Backup sao lưu File của thầy NDU nhưng tại 1 lần Backup là nó tạo thêm 1 File mới nên tốn dung luợng bộ nhớ quá.
Em muốn 1 lần Sao lưu mới thì File đã sao lưu trước (củ) sẽ bị xóa để lưu lại file mới chỉ chứa duy nhất một File trong folder "Sao Lưu " này thôi
Giúp em với ạ!

Ý bạn là bạn mở tập tin rồi khi nào muốn thì lưu lại nó và đồng thời lưu lại một bản sao? Và luôn chỉ có một bản sao này làm bản sao mới nhất?
Nếu thế thì

Sub SaveAndBackup()
    With ThisWorkbook
        .Save
        .SaveCopyAs "moi_nhat_" & .Name
    End With
End Sub

--------------
Thực ra dung lượng ổ đĩa ngày nay rất lớn, nhiều khi cần giữ tất cả mọi bản sao, nếu cần thì có thể lấy lại tập tin ở thời điểm bất kỳ. Nhiều tập tin bản sao thì chỉ làm "rối mắt" thôi. Nhưng lúc đó thay vì giữ các bản sao cùng bản gốc thì luôn có thể ghi bản sao vào thư mục khác. Lúc nào cần xóa bản sao thì vào đó xóa. Chỉ một thao tác nhỏ.

 

[quoc nhat]

Ý bạn là bạn mở tập tin rồi khi nào muốn thì lưu lại nó và đồng thời lưu lại một bản sao? Và luôn chỉ có một bản sao này làm bản sao mới nhất?
Nếu thế thì

Sub SaveAndBackup()
    With ThisWorkbook
        .Save
        .SaveCopyAs "moi_nhat_" & .Name
    End With
End Sub

--------------
Thực ra dung lượng ổ đĩa ngày nay rất lớn, nhiều khi cần giữ tất cả mọi bản sao, nếu cần thì có thể lấy lại tập tin ở thời điểm bất kỳ. Nhiều tập tin bản sao thì chỉ làm "rối mắt" thôi. Nhưng lúc đó thay vì giữ các bản sao cùng bản gốc thì luôn có thể ghi bản sao vào thư mục khác. Lúc nào cần xóa bản sao thì vào đó xóa. Chỉ một thao tác nhỏ.

Cảm ơn anh Siwtom
Em muốn khi minh save file gốc thì đồng thời nó cũng copy ra một file khác đề phòng File gốc gặp trục trặc thì khi đó mình có file đã sao lưu để dùng.
Cảm ơn anh một lần nữa

 

[VetMini]

Bạn có suy nghĩ kỹ về sự hữu hiệu của yêu cầu mình không?

Nếu vì lý do nào đó (không enable macro chẳng hạn) code không chạy thì làm cách nào bạn biết là bản sao là bản mới nhất? So sánh ngày tháng được không một khi mà file gốc đã bị hư?