Private Sub zLokDF_Click()
 
Dim Msg As VbMsgBoxResult
Dim strFol As String
Dim strCst As String
 
If Mid(Dir1.Path, Len(Dir1.Path), 1) = "\" Then
    MsgBox "This is the root folder that can't be removed!", vbExclamation, _
      App.Title
    Exit Sub
ElseIf Dir1.Path = App.Path Or Dir1.Path = App.Path & "\Log" Then
    MsgBox "This is the program folder that can't be removed!", vbExclamation, _
      App.Title
    Exit Sub
Else
    strFol = Mid$(Dir1.Path, InStrRev(Dir1.Path, "\") + 1)
    strCst = Left(Dir1.Path, Len(Dir1.Path) - (Len(strFol) + 1))
    Msg = MsgBox("Are you sure to remove this folder: " & Chr(34) & strFol & _
      Chr(34) & "? Make sure it contains no files!" & vbCrLf & "If you are," & _
      "don't look for it in recycle!", vbQuestion + vbYesNo, App.Title)
    If Msg = vbYes Then
        RmDir Dir1.Path   '########hier wird der fehler 75 ausgelöst #########
        Dir1.Path = strCst
        LoadLocal
    End If
End If
End Sub