Verzeichnis I

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Verzeichnis I
von: Steffen
Geschrieben am: 17.05.2002 - 23:21:30

Hallo Leute,

ich habe ein Problem und brauche bitte Eure Hilfe!

Also:

Ich möchte per Excel ein Verzeichnis löschen, dies geht aber nicht solange Dateien in diesem Verzeichnis löschen,
wie kann ich das lösen, dass ich einen Ordner komplett mit Unterordner löschen kann.

Danke schonmal


Steffen

nach oben   nach unten

Re: Verzeichnis I
von: GraFri
Geschrieben am: 18.05.2002 - 06:36:30

Hallo

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

nach oben   nach unten

Re: Verzeichnis I
von: Steffen
Geschrieben am: 19.05.2002 - 10:56:29

Danke geht echt super

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Verzeichnis I"