Xin code để kiểm tra sự tồn tại của file .txt rồi xoá file đó luôn (1 người xem)

[thanchetvnt]

Bác nào code giúp em để khi em bấm một nút lệnh nó tự kiểm tra trong ổ D: có tồn tại file abc.txt. Nếu có thì tự động xoá.
Em cảm ơn trước.

 

[ndu96081631]

Bác nào code giúp em để khi em bấm một nút lệnh nó tự kiểm tra trong ổ D: có tồn tại file abc.txt. Nếu có thì tự động xoá.
Em cảm ơn trước.

Code đại khái thế này:

Dim fso As Object, FileName As String
FileName = "D:\abc.txt"  ''<---- Đường dẫn đến file cần xóa
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(FileName) Then fso.DeleteFile (FileName)