12
Inhalt von Unterordnern löschen VBScript Prozedur
Hallo Zusammen
Ich habe folgenden Code um den Inhalt von Verzeichnissen zu löschen. Wie muss ich den Code erweitern, damit ich in dem Pfad den Inhalt sämtlicher Unterordner löschen kann? Die Unterordner also bestehen bleiben?
z.B.:
D:\Folder\1\"zu löschender Inhalt"
D:\Folder\2\"zu löschender Inhalt"
..
etc.
Gruss und Dank im Voraus!
Ich habe folgenden Code um den Inhalt von Verzeichnissen zu löschen. Wie muss ich den Code erweitern, damit ich in dem Pfad den Inhalt sämtlicher Unterordner löschen kann? Die Unterordner also bestehen bleiben?
z.B.:
D:\Folder\1\"zu löschender Inhalt"
D:\Folder\2\"zu löschender Inhalt"
..
etc.
Gruss und Dank im Voraus!
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "D:\Folder"
Delete strPath
Sub Delete(StrFolder)
On Error Resume Next
Dim Folder
Set Folder = fso.GetFolder(StrFolder)
For Each SubFolder in Folder.SubFolders
Delete SubFolder
If Folder.Attributes And 1 Then
Folder.Attributes = Folder.Attributes - 1
End If
SubFolder.Delete
Next
For Each File In Folder.Files
If File.Attributes And 1 Then
File.Attributes = File.Attributes - 1
End If
File.Delete
Next
End Sub
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 173509
Url: https://administrator.de/contentid/173509
Printed on: April 18, 2024 at 10:04 o'clock
12 Comments
Latest comment
Ich habe mir bereits etwas Gedanken gemacht und sehe folgenden Lösungsweg:
1. Die Namen sämtlicher Unterverzeichnisse einlesen und diese in einem Array ablegen.
2. Den Array durchzählen und die Anzahl Iterationen inkl. Array dem Sub übergeben.
Kann mir bei der Umsetzung meines Plans jemand unter die Arme greifen? Oder ist dieser Ansatz nicht tauglich?
Thanx!
1. Die Namen sämtlicher Unterverzeichnisse einlesen und diese in einem Array ablegen.
2. Den Array durchzählen und die Anzahl Iterationen inkl. Array dem Sub übergeben.
Kann mir bei der Umsetzung meines Plans jemand unter die Arme greifen? Oder ist dieser Ansatz nicht tauglich?
Thanx!
Hallo RetroDude!
Du hast doch bereits Rekursion in Deinem (leider noch nicht als Code ) Ansatz - dann sollte doch eigentlich etwas in der Art reichen:
Eine Anmerkung zur Variablendeklaration in VBS: Wenn Du schon "
Grüße
bastla
Du hast doch bereits Rekursion in Deinem (leider noch nicht als Code ) Ansatz - dann sollte doch eigentlich etwas in der Art reichen:
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "D:\Folder"
Delete strPath
Sub Delete(StrFolder)
On Error Resume Next
Set Folder = fso.GetFolder(StrFolder)
For Each SubFolder in Folder.SubFolders
fso.DeleteFile SubFolder.Path & "\*.*", True
Delete SubFolder
Next
End SubDim" verwendest, dann aber auch konsequent für alle vorkommenden Variablen und zusammen mit "Option Explicit" - ansonsten kannst Du sie auch gleich einsparen ...Grüße
bastla
Hallo Bastla
Danke für den Hinweis wegen der Formatierung. Habe es ausprobiert. So löscht er zwar die Files auf erster Ebene. Die Unterordner der Unterordner lässt er aber stehen. Dementsprechend auch deren Inhalt. Was muss ich ändern, daimt er sämtlichen Inhalt der Unterordner des entsprechenden Ordners löscht?
Danke und Gruss
Danke für den Hinweis wegen der Formatierung. Habe es ausprobiert. So löscht er zwar die Files auf erster Ebene. Die Unterordner der Unterordner lässt er aber stehen. Dementsprechend auch deren Inhalt. Was muss ich ändern, daimt er sämtlichen Inhalt der Unterordner des entsprechenden Ordners löscht?
Danke und Gruss
Hallo RetroDude!
Das hatte ich anders verstanden ...
Wenn Du die erste Unterordner-Ebene erhalten, aber alle Inhalte entfernen willst, dann einfach so:
Grüße
bastla
Das hatte ich anders verstanden ...
Wenn Du die erste Unterordner-Ebene erhalten, aber alle Inhalte entfernen willst, dann einfach so:
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "D:\Folder"
Set Folder = fso.GetFolder(strPath)
For Each SubFolder in Folder.SubFolders
fso.DeleteFile SubFolder.Path & "\*.*", True
fso.DeleteFolder SubFolder.Path & "\*.*", True
Nextbastla
Danke Bastla
Funktioniert bestens. Ich hätte noch ne kleine Frage. Was müsste ich hizufügen, damit im Verzeichnis D:\Folder, in dem ja nur die Ordner bereinigt werden, zusätzlich sämtliche Dateien gelöscht würden?
Gruss und Danke nochmals!
Funktioniert bestens. Ich hätte noch ne kleine Frage. Was müsste ich hizufügen, damit im Verzeichnis D:\Folder, in dem ja nur die Ordner bereinigt werden, zusätzlich sämtliche Dateien gelöscht würden?
Gruss und Danke nochmals!
Hallo RetroDude!
Wenn Du die Zeile 7 betrachtest, und unter Berücksichtigung der Tatsache, dass Du den Pfad gar nicht ermitteln musst, weil er bereits in "strPath" steht, könntest Du das vielleicht auch selbst schaffen ...
Grüße
bastla
Wenn Du die Zeile 7 betrachtest, und unter Berücksichtigung der Tatsache, dass Du den Pfad gar nicht ermitteln musst, weil er bereits in "strPath" steht, könntest Du das vielleicht auch selbst schaffen ...
Grüße
bastla
Hast recht.
fso.DeleteFile strPath & "\*.*", True
gell?
Gruss
fso.DeleteFile strPath & "\*.*", True
gell?
Gruss
Hallo RetroDude,
hier nochmal eine Lösung mit einem "cmd".
erfüllt den gleichen Zweck.
Jetzt bekomme ich bestimmt Haue weil nach einem VB-Script gefragt wurde. Aber das ist ja eine Alternative.
Gruß
Uwe
hier nochmal eine Lösung mit einem "cmd".
cd /d D:\Folder && del /a /s /f /q *.*Jetzt bekomme ich bestimmt Haue weil nach einem VB-Script gefragt wurde. Aber das ist ja eine Alternative.
Gruß
Uwe
Hallo Uwe
Danke für den Input. Ich bin stets offen für konstruktive Vorschläge. Deiner gehört zu diesen. Lass Dich nicht von frustrierten Mitgliedern von diesem Pfad abbringen. Solche Beiträge sind eine Bereicherung für einen Thread. Viele Wege führen ja bekanntlich nach Rom.
Gruss und schönes Wochenende!
Retrodude
Danke für den Input. Ich bin stets offen für konstruktive Vorschläge. Deiner gehört zu diesen. Lass Dich nicht von frustrierten Mitgliedern von diesem Pfad abbringen. Solche Beiträge sind eine Bereicherung für einen Thread. Viele Wege führen ja bekanntlich nach Rom.
Gruss und schönes Wochenende!
Retrodude
@ovu-p86
@RetroDude
Wenn CMD tatsächlich eine Option ist, dann:
Grüße
bastla
Jetzt bekomme ich bestimmt Haue weil nach einem VB-Script gefragt wurde.
Die Haue gibt's dafür, dass DuDie Unterordner der Unterordner lässt er aber stehen.
ignoriert hast ... @RetroDude
Wenn CMD tatsächlich eine Option ist, dann:
@echo off & setlocal
set "Pfad=D:\Folder"
del /a /f /q "%Pfad%\*.*"
for /d %%i in ("%Pfad%\*.*") do (
for /d %%u in ("%%~i\*.*") do rd /s /q "%%u"
del /a /f /q "%%i\*.*"
)bastla
Hallo Bastla,
das habe ich in der Tat ignoriert. Hatte das so mißverstanden, daß kurz gesagt: alle Dateien gelöscht, aber die komplette Ordnerstruktur erhalten bleiben soll. Und nur das mein cmd.
Das mit "der Haue" hab ich nur geschrieben, weil meiner Ansicht nach, das Klima im Forum in letzter Zeit rauer geworden war.
Ansonsten nochmal meine Hochachtung für dich. Hab viel von dir, deinen Beiträgen lernen können. Du hast mir auch schon häufiger effektiv direkt geholfen. Und das auch mit guten, nachvollziehbaren Erklärungen. - Danke -
In diesem Sinne
Gruß
Uwe
das habe ich in der Tat ignoriert. Hatte das so mißverstanden, daß kurz gesagt: alle Dateien gelöscht, aber die komplette Ordnerstruktur erhalten bleiben soll. Und nur das mein cmd.
Das mit "der Haue" hab ich nur geschrieben, weil meiner Ansicht nach, das Klima im Forum in letzter Zeit rauer geworden war.
Ansonsten nochmal meine Hochachtung für dich. Hab viel von dir, deinen Beiträgen lernen können. Du hast mir auch schon häufiger effektiv direkt geholfen. Und das auch mit guten, nachvollziehbaren Erklärungen. - Danke -
In diesem Sinne
Gruß
Uwe
Hallo ovu-p86!
- aber das meiste davon habe ich selbst erst hier gelernt / verbessert ...
Grüße
bastla
Hab viel von dir, deinen Beiträgen lernen können.
Danke - aber das meiste davon habe ich selbst erst hier gelernt / verbessert ...Grüße
bastla
