Public Function ClearFolder(FullPath As String) As Boolean
Dim oFso As New Scripting.FileSystemObject
Dim folder As String
Dim basefolder As String
 
'deletefolder methode mag "\" am ende des Pfades nicht
If Right(FullPath, 1) = "\" Then
    FullPath = Left(FullPath, Len(FullPath) - 1)
End If
 
    folder = oFso.GetBaseName(FullPath)
    basefolder = Left(FullPath, (Len(FullPath) - Len(folder)))
    If oFso.FolderExists(FullPath) Then
'        den zweiten Parameter auf "WAHR" setzen um das Löschen von NUR 
' LESEN-Dateien zu erzwingen
        oFso.DeleteFolder FullPath, True
        ClearFolder = Err.Number = 0 And oFso.FolderExists(FullPath) = False
    End If
         oFso.CreateFolder folder
    End If
End Function