Private Sub OrdnerLöschen(ByVal PfadOrdner As String)
Rem Verweis auf Microsoft Scripting Runtime nicht vergessen
On Error GoTo Fehler
Dim MeinFS As Scripting.FileSystemObject
Set MeinFS = New Scripting.FileSystemObject
If MeinFS.FolderExists(PfadOrdner) = True Then
    MeinFS.GetFolder(PfadOrdner).Delete
End If
Fehler:
End Sub