VBA Macro to Delete All TMP Files in Multiple Folders

I have done a lot of work with Photoshop, where I end up having a ton of annoying TMP files after running a large batch action. This can take up unnecessary storage space and make it harder to sort through useful files.

Finding and deleting TMP files can be a huge pain. You can go to folder and search for all files by putting .TMP in the search box. However, there are reasons this may not work:

• You may have a very large set of files and the computer may not be able to search through all of them.
• You may have files in numerous folders that don’t even necessarily have the same parent folder.
• It may accidentally identify files that are not TMP files that have the letters TMP in the file name.

This means that it can be better to use a VBA macro. This macro will go through all of the folder paths shown in column A and delete every TMP file in them.

Sub DeleteTmpFiles()
Dim FolderPath As String
Dim FileName As String
Dim FileSystem As Object
Dim objFolder As Object
Dim objFile As Object
Dim LastRow As Long
Dim i As Long

' Create an instance of the FileSystemObject
Set FileSystem = CreateObject("Scripting.FileSystemObject")

' Find the last row with data in column A
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

' Loop through each cell in column A
For i = 1 To LastRow
    ' Get the folder path from column A
    FolderPath = Cells(i, 1).Value

    ' Check if the folder path is valid
    If FileSystem.FolderExists(FolderPath) Then
        ' Set objFolder to the folder path
        Set objFolder = FileSystem.GetFolder(FolderPath)

        ' Loop through each file in the folder
        For Each objFile In objFolder.Files
            ' Check if the file is a TMP file
            If LCase(Right(objFile.Name, 4)) = ".tmp" Then
                ' Delete the TMP file
                objFile.Delete
            End If
        Next objFile
    Else
        ' Display a message if the folder path is invalid
        MsgBox "Folder does not exist: " & FolderPath, vbExclamation
    End If
Next i

' Clean up objects
Set FileSystem = Nothing
Set objFolder = Nothing
Set objFile = Nothing

' Display a message when the task is completed
MsgBox "TMP files deleted successfully!", vbInformation

End Sub

Temporary files can take a lot of space over time. This can cause your computer to run more slowly if you are not careful. Therefore, it is a good idea to get rid of TMP files that you don’t need any more.

This macro will get rid of them automatically for you. You probably don’t need temporary files much after you have finished a project, so this can be a great way to have more free memory.