Xin code xoá tất cả các file có đuôi *.xls trên ổ đĩa!!! (1 người xem)

[quangthanhdu]

Em muốn có một đoạn code trong excel khi chay đoạn code đó thì các file cố đuôi "*.xls" trong Ổ đỉa D sẽ bị xóa (Xóa theo kiểu "Shift-Delete"). Rất mông mọi người cho ý kiến.

 

[ndu96081631]

Em muốn có một đoạn code trong excel khi chay đoạn code đó thì các file cố đuôi "*.xls" trong Ổ đỉa D sẽ bị xóa (Xóa theo kiểu "Shift-Delete"). Rất mông mọi người cho ý kiến.

Bạn từ mình tìm kiếm trên diễn đàn những code có liên quan đến liệt kê tên file trong thư mục
Code này cũng dễ thôi nhưng tôi thật sự phải suy nghĩ lại: Liệu đây có phải là 1 trò PHÁ HOẠI không?
Tại sao phải dùng đến code? Muốn cho người ta đừng biết mình làm sao? Vì nếu muốn xóa, chỉ cần search trên Windows Explorer cũng làm được rồi

 

[quangthanhdu]

Không phải phá hoại anh ơi!!! Em muốn tham khảo để học hỏi thôi,

 

[quangthanhdu]

Hôm trước em thấy trên diễn đàn có bài viết " Copy các file excel trong thư mục Ổ C sang thư mục Ổ D", nên Em nghĩ nếu Copy được thì chắc chắn sẽ xóa được nên hỏi câu này để tham khảo thôi. Em không có ý phá hoại, Xin lỗi các Bác hihi

 

[ndu96081631]

Không phải phá hoại anh ơi!!! Em muốn tham khảo để học hỏi thôi,

Nếu muốn HỌC, thôi thì lựa cái gì HIỀN HIỀN mà học. Học chị trò ÁC NHƠN THẤT ĐỨC thế
Có PHÁ hay không tôi không biết nhưng dù là thật thì cũng phải ĐỦ BẢN LĨNH hen
--------------

Hôm trước em thấy trên diễn đàn có bài viết " Copy các file excel trong thư mục Ổ C sang thư mục Ổ D", nên Em nghĩ nếu Copy được thì chắc chắn sẽ xóa được nên hỏi câu này để tham khảo thôi. Em không có ý phá hoại, Xin lỗi các Bác hihi

Bạn đã tham khảo code COPY rồi thì cứ thế mà sửa đi

 

[quangthanhdu]

ok!!! cảm ơn lời khuyên của Anh!!!

 

[nam2806]

Bạn từ mình tìm kiếm trên diễn đàn những code có liên quan đến liệt kê tên file trong thư mục
Code này cũng dễ thôi nhưng tôi thật sự phải suy nghĩ lại: Liệu đây có phải là 1 trò PHÁ HOẠI không?
Tại sao phải dùng đến code? Muốn cho người ta đừng biết mình làm sao? Vì nếu muốn xóa, chỉ cần search trên Windows Explorer cũng làm được rồi

Anh ndu ơi: muốn dùng code xóa tất cả các file *.tmp trên ổ đia C và D thì làm sao.

 

[vanle33]

Anh ndu ơi: muốn dùng code xóa tất cả các file *.tmp trên ổ đia C và D thì làm sao.

Mình có cách xóa file rác trên ổ C
Bạn chạy hộp thoại RUN ấn %temp% và Enter. Xóa tất cả fie và folder trong đó
Các ổ khác bạn chạy thêm Disk Cleanup

 

[ndu96081631]

Mình có cách xóa file rác trên ổ C
Bạn chạy hộp thoại RUN ấn %temp% và Enter. Xóa tất cả fie và folder trong đó
Các ổ khác bạn chạy thêm Disk Cleanup

Đang hỏi code VBA chứ có phải làm bằng tay đâu
Có thể là vầy:

Sub DelTmpFiles()
  Dim sComm As String, TempFolder As String
  On Error Resume Next
  TempFolder = CreateObject("Scripting.FileSystemObject").GetFolder(Environ("Temp"))
  sComm = "RMDIR """ & TempFolder & """ /Q /S"
  CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub

Thí nghiệm xem