Private Sub GetFolderObject(Path As String, Optional Witch As Boolean)
    Dim f As Folder
    If fso.FolderExists(Path) = True Then
        Set f = fso.GetFolder(Path)
        If Witch = False Then
            Call DelTree(f, Path)
        Else
            Call KillTempFiles(f)
        End If
    Else
        Output Path & " existiert nicht! 0"
        DoCountFor
    End If
End Sub
 
Private Sub KillTempFiles(f As Folder)
 
    Dim sf As Folder, fi As File
    Dim DelFile As String, DelFolder As String
 
    On Error Resume Next
    If fso.FolderExists(f) = True Then
 
        Output "Suchpfad " & f.Path
        For Each sf In f.SubFolders
            DoEvents
            Call KillTempFiles(sf)
        Next
 
        For Each fi In f.Files
            If Right(fi.Path, 3) = "tmp" Then
                If DeleteFile(fi.Path) = 1 Then
                    Output "Löschen von " & fi.Path & " war erfolgreich 1"
                    DoCount
                    DoCountFor
                Else
                    Output "Löschen von " & fi.Path & " war erfolglos 0"
                    DoCountFor
                End If
            Else
                DoCountFor
            End If
        Next
 
    End If
 
End Sub