XỬ LÝ FILE EXCEL “.TMP”

21/02/2019 IT 0 HƯỚNG DẪN KỸ THUẬT,

XỬ LÝ FILE EXCEL ".TMP"

HƯỚNG DẪN IT
XỬ LÝ FILE EXCEL ".TMP"
1. xóa phần mềm virus
2. SuperCleaner 2.96 Download
Bước 1: Vào Start --> Run --> gõ vào Temp để mở folder tạm, bạn chọn tất cả và Delete chúng.
Bước 2: Vào Start --> Run --> gõ vào prefetch để mở folder chứa các link tạm, bạn cũng chọn tất cả và Delete chúng.
3. quét virus kaspersky free-virus-removal-tool Download

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 Sub

Blog: 
1. chương trình Word hoặc Excel tương ứng vào Open rùi chọn đường dẫn đến file .tmp, 
click đơn chuột vào file đó, ở nút Open bên dưới bạn nhấp chuột xổ xuống chọn Open & Repair.
2. Đúng là do AVG gây ra.
3. Đố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 đó
4. Like "tmp*" coi chừng bị xóa nhầm nha! Chỉ xóa đuôi .tmp thôi mà
5.Sửa dòng If ObjFSO.GetExtensionName(ObjFile.Name) = ".tmp" Then
6.Dùng thử cái này xem:

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
Bảo đảm nhanh hơn FileSystemObject là cái chắc
7. Code của bác không del được file ẩn, hệ thống mà thường file tmp tự sinh ra là file ẩn
8. sửa Like "tmp*" Then thành = ".tmp" Then nó hết chạy luôn anh
9. Bỏ thêm xíu nữa = 'Tmp"
Không có dấu chấm mới chạy
10. Nếu ai đọc hiểu được lệnh DOS thì chỉnh lại xíu là chạy. Quan trong là cái sườn anh NDU tạo sẵn rồi
Ai thử code thì cẩn thận nha, xóa hết là không cứu được đó
Sau khi vọc code này của anh NDU thì mình thấy có thể thay DEL bằng ERASE, và nếu chỉ muốn xóa file ẩn thôi thì sửa /a thành /ah

Sub DelTmpFiles()
  Dim sComm As String, Folder As String
  Folder = ThisWorkbook.Path
  If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
  sComm = "DEL /a """ & Folder & "*.tmp"""
  CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub