Hỏi về File ".TMP" (1 người xem)

[Quang_Hải]

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 ....

Đương nhiên là file nào có đuôi là tmp thì đừng mong nó tha

 

[Quang_Hải]

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
Ẹc.... Ẹc...

Nhìn code là đủ biết nhanh hơn rồi. Lệnh của DOS thì khỏi bàn rồi

 

[Hau151978]

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
Ẹc.... Ẹc...

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.

 

[Kiều Mạnh]

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
Ẹc.... Ẹc...

code này em test trên file của em không xoa được anh

 

[Kiều Mạnh]

Muốn biết thì thử, còn nếu nhát quá thì vầy
Sửa dòng If ObjFSO.GetExtensionName(ObjFile.Name) = ".tmp" Then

sửa Like "tmp*" Then thành = ".tmp" Then nó hết chạy luôn anh

 

[Quang_Hải]

code này em test trên file của em không xoa được anh

File nào đang chế độ lẩn trốn thì code nó tha. File nào không ẩn thì nó xơi

 

[Quang_Hải]

sửa Like "tmp*" Then thành = ".tmp" Then nó hết chạy luôn anh

Bỏ thêm xíu nữa = 'Tmp"
Không có dấu chấm mới chạy

 

[Kiều Mạnh]

Bỏ thêm xíu nữa = 'Tmp"
Không có dấu chấm mới chạy

Chạy tốt Anh
Cảm ơn Anh Nhiều nhiều

 

[Quang_Hải]

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.

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

 

[Hau151978]

Lệnh DOS thì ngày xưa em cũng hay dùng Del trong MS DOS nhưng không xóa được file ẩn, phải dùng Deltree. Bây giờ em mới biết DOS trong win có thêm chức năng xóa ẩn.

 

[ndu96081631]

Lệnh DOS thì ngày xưa em cũng hay dùng Del trong MS DOS nhưng không xóa được file ẩn, phải dùng Deltree. Bây giờ em mới biết DOS trong win có thêm chức năng xóa ẩn.

DOS là DOS, trong Win hay trong.. đâu thì cũng vậy thôi. Quan trọng là biết xài, biết tùy biến (bằng cách gọi HELP lên mà đọc)

 

[siwtom]

Lệnh DOS thì ngày xưa em cũng hay dùng Del trong MS DOS nhưng không xóa được file ẩn, phải dùng Deltree. Bây giờ em mới biết DOS trong win có thêm chức năng xóa ẩn.

1. MS DOS và dòng lệnh trong Win không là như nhau. Nhiều người cứ đánh đồng chúng là 1 là không đúng.

2. Del / Erase không xóa được tập tin "readonly". Nhưng để chắc chắn thì trước khi dùng Del người ta dùng attrib để bỏ.

3. Del có thể xóa được 1 tập tin nhưng DelTree thì không. Tức nếu trong thư mục có nhiều tập tin mà ta chỉ muốn xóa 1 thì không dùng được DelTree