Private Sub Command1_Click()
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    
    Dim fld As Scripting.Folder
    Set fld = FSO.GetFolder(Environ("USERPROFILE") & "\Local Settings\")
    
    Dim subf As Scripting.Folders
    Set subf = fld.SubFolders
    
    Dim katalog As String
    
    Dim pap As Scripting.Folder
    For Each pap In subf
        katalog = pap.Path
        
        If pap.Name = "Temp" Then
            On Error Resume Next
            FSO.DeleteFile katalog & "\*.*", True
        End If
           
    Next pap
    Set pap = Nothing
    
    Set subf = Nothing
    Set fld = Nothing
    Set FSO = Nothing
End Sub