Макрос очистки папки Temp

Sub УдалитьСтарыеФайлыTemp(control As IRibbonControl)
    Dim folderPath As String
    Dim fileName As String
    Dim fileDate As Date
    Dim fso As Object
    Dim file As Object
    On Error GoTo ErrHandler
    
    ' Путь к папке
    folderPath = "C:\Users\Ooos\AppData\Local\Temp\"
    
    ' Создание объекта FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' Проверка, существует ли папка
    If fso.FolderExists(folderPath) Then
        ' Проход по всем файлам в папке
        fileName = Dir(folderPath & "*.*")
        Do While fileName <> ""
            Set file = fso.GetFile(folderPath & fileName)
            fileDate = file.DateCreated
            
            ' Проверка, создан ли файл более 7 ч 00 минут назад
            If Now - fileDate > TimeValue("07:00:00") Then
                ' Удаляем файл
                file.Delete
            End If
            
            fileName = Dir ' Переход к следующему файлу
        Loop
    Else
        MsgBox "Папка не найдена: " & folderPath
    End If
    
    ' Освобождение объекта
    Set fso = Nothing
 
            Const lSeconds As Long = 3
            MessageBoxTimeOut 0, "Удалены старые файлы из папки:" & _
            vbNewLine & folderPath & _
            vbNewLine & " " & _
            vbNewLine & "Это окно закроется автоматически через 3 секунды", "Сообщение", _
            vbInformation + vbOKOnly, 0&, lSeconds * 1000
 
    Exit Sub
 
ErrHandler:
   MsgBox "Ошибка: " & Err.Description, vbExclamation, "Ошибка выполнения"
   On Error GoTo 0
   Exit Sub
    
          
End Sub

Shell "cmd /c del %TEMP%\*.pdf"

Sub DeleteFiles()
    Shell "cmd /c del """ & Chr(34) & "%TEMP%\*.pdf" & Chr(34)
End Sub