Không biết trên máy bạn có cài em Antivrus nào không? Rất có thể có liên quan đến "hắn" đấy!
Kiểu này là máy bạn có virus rồi đó! Diệt đi!!!
Tôi không nghĩ là do virus mà do chương trình diệt virus gây ra ---> Bạn thử remove AVG rồi check lại file xem sao?
Đối với office 2007 và 2010 trở lại đây thì bạn nên vào excel option và vào Save Autocoret.. là được tôi bị nên tôi biết do excel tự tạo ra bản sao đó
Cái đồ quỷ này mà không xử được à?
Sub DeleteTmpFile()
Dim ObjFSO As Object, ObjFile As Object, DuongDan As String
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
DuongDan = ThisWorkbook.Path
With ObjFSO.Getfolder(DuongDan)
For Each ObjFile In .Files
If ObjFSO.GetExtensionName(ObjFile.Name) Like "tmp*" Then
ObjFSO.DeleteFile (ObjFile)
End If
Next
End With
End SubBấm chạy một cái nó bay liền anh
Like "tmp*" coi chừng bị xóa nhầm nha! Chỉ xóa đuôi .tmp thôi mà
Em cũng thấy nhưng làm biếng sửa vì ỷ lại là mình đang tìm Extension. Kệ đi cho chủ thớt bị gì đó rồi tính tiếp.
có khi nào code của anh hải chơi tái luôn file này không ta. nếu nó xơi thì là đại họa ....
em test thấy chạy được mà. không biết nó có nhìn gà hoá cuốc một ngày đẹp trời nào đó nó kill luôn mấy file khác cùng foder của em không anh
Muốn biết thì thử, còn nếu nhát quá thì vầy
Sub DelTmpFiles()
Dim sComm As String, Folder As String
On Error Resume Next
Folder = ThisWorkbook.Path
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
sComm = [COLOR=#ff0000]"DEL """ & Folder & "*.tmp"""[/COLOR]
CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub
