Verzeichnis I

Möglich: Ordner samt Unterordner bzw. Dateien löschen oder einen neuen Ordner anlegen.

' Unter Extras\Verweise ... muß "Microsoft Scripting Runtime"
' aktiviert werden

Sub Ordner_löschen()
Call DeleteFolder("C:\Temp\Temp")
End Sub

Public Sub DeleteFolder(sFolder As String)
Dim fso     As New FileSystemObject
Dim Text    As String
Dim Antwort

Text = "Wollen Sie den Ordner  " & sFolder & vbCrLf & _
       "wirklich löschen?" & vbCrLf & vbCrLf & _
       "Alle darin befindlichen Dateien gehen verloren."

On Error GoTo DeleteFolder_ERROR

If fso.folderexists(sFolder) Then
Antwort = MsgBox(Text, vbCritical & vbOKOnly, "Ordner löschen")

    If Antwort = 1 Then
        fso.DeleteFolder (sFolder)
    Else
        MsgBox "Es wurde kein Ordner gelöscht."
    End If
Else
    Err.Raise 10001, "Verzeichnis existiert nicht"
End If

Exit Sub
DeleteFolder_ERROR:
MsgBox Err.Description
End Sub

Sub Ordner_erstellen()
Call CreateFolder("C:\Temp")
End Sub

Sub CreateFolder(sFolder As String)
Dim fso     As New FileSystemObject
Dim Antwort

On Error GoTo ErrorFolder_ERROR

If fso.folderexists(sFolder) Then
Antwort = MsgBox("Ordner  " & sFolder & "  existiert schon. Wollen" & vbCrLf & _
                 "Sie diesen löschen und dann neu erstellen?" _
                 , vbYesNo + vbCritical, "Ordner löschen und neu anlegen")

    If Antwort = 6 Then
        fso.DeleteFolder (sFolder)
        fso.CreateFolder (sFolder)
    Else
        Exit Sub
    End If
Else
        fso.CreateFolder (sFolder)
End If

Exit Sub
ErrorFolder_ERROR:
MsgBox Err.Description

End Sub

mfg, GraFri