Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Inhalt von Unterordnern löschen VBScript Prozedur

Mitglied: RetroDude

RetroDude (Level 1) - Jetzt verbinden

22.09.2011, aktualisiert 15:26 Uhr, 5551 Aufrufe, 12 Kommentare

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!
01.
 
02.
Dim fso 
03.
Set fso = CreateObject("Scripting.FileSystemObject") 
04.
 
05.
strPath = "D:\Folder" 
06.
 
07.
Delete strPath 
08.
 
09.
Sub Delete(StrFolder) 
10.
On Error Resume Next 
11.
Dim Folder 
12.
Set Folder = fso.GetFolder(StrFolder) 
13.
 
14.
For Each SubFolder in Folder.SubFolders 
15.
Delete SubFolder 
16.
If Folder.Attributes And 1 Then 
17.
Folder.Attributes = Folder.Attributes - 1 
18.
End If 
19.
SubFolder.Delete 
20.
Next 
21.
 
22.
For Each File In Folder.Files 
23.
If File.Attributes And 1 Then 
24.
File.Attributes = File.Attributes - 1 
25.
End If 
26.
File.Delete 
27.
Next 
28.
End Sub 
29.
 
Mitglied: RetroDude
22.09.2011 um 14:52 Uhr
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!
Bitte warten ..
Mitglied: bastla
22.09.2011 um 15:15 Uhr
Hallo RetroDude!

Du hast doch bereits Rekursion in Deinem (leider noch nicht als Code formatierten) Ansatz - dann sollte doch eigentlich etwas in der Art reichen:
01.
Set fso = CreateObject("Scripting.FileSystemObject") 
02.
 
03.
strPath = "D:\Folder" 
04.
 
05.
Delete strPath 
06.
 
07.
Sub Delete(StrFolder) 
08.
On Error Resume Next 
09.
Set Folder = fso.GetFolder(StrFolder) 
10.
For Each SubFolder in Folder.SubFolders 
11.
    fso.DeleteFile SubFolder.Path & "\*.*", True 
12.
    Delete SubFolder 
13.
Next 
14.
End Sub
Eine Anmerkung zur Variablendeklaration in VBS: Wenn Du schon "Dim" 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
Bitte warten ..
Mitglied: RetroDude
22.09.2011 um 15:36 Uhr
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
Bitte warten ..
Mitglied: bastla
22.09.2011 um 15:49 Uhr
Hallo RetroDude!

Das hatte ich anders verstanden ...

Wenn Du die erste Unterordner-Ebene erhalten, aber alle Inhalte entfernen willst, dann einfach so:
01.
Set fso = CreateObject("Scripting.FileSystemObject") 
02.
 
03.
strPath = "D:\Folder" 
04.
 
05.
Set Folder = fso.GetFolder(strPath) 
06.
For Each SubFolder in Folder.SubFolders 
07.
    fso.DeleteFile SubFolder.Path & "\*.*", True 
08.
    fso.DeleteFolder SubFolder.Path & "\*.*", True 
09.
Next
Grüße
bastla
Bitte warten ..
Mitglied: RetroDude
22.09.2011 um 16:02 Uhr
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!
Bitte warten ..
Mitglied: bastla
22.09.2011 um 16:31 Uhr
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
Bitte warten ..
Mitglied: RetroDude
22.09.2011 um 16:34 Uhr
Hast recht.

fso.DeleteFile strPath & "\*.*", True

gell?

Gruss
Bitte warten ..
Mitglied: ovu-p86
23.09.2011 um 03:15 Uhr
Hallo RetroDude,

hier nochmal eine Lösung mit einem "cmd".
01.
cd /d D:\Folder && del /a /s /f /q *.*
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
Bitte warten ..
Mitglied: RetroDude
23.09.2011 um 09:11 Uhr
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
Bitte warten ..
Mitglied: bastla
23.09.2011 um 14:50 Uhr
@ovu-p86
Jetzt bekomme ich bestimmt Haue weil nach einem VB-Script gefragt wurde.
Die Haue gibt's dafür, dass Du
Die Unterordner der Unterordner lässt er aber stehen.
ignoriert hast ...
@RetroDude
Wenn CMD tatsächlich eine Option ist, dann:
01.
@echo off & setlocal 
02.
set "Pfad=D:\Folder" 
03.
 
04.
del /a /f /q "%Pfad%\*.*" 
05.
for /d %%i in ("%Pfad%\*.*") do ( 
06.
    for /d %%u in ("%%~i\*.*") do rd /s /q "%%u" 
07.
    del /a /f /q "%%i\*.*" 
08.
)
Grüße
bastla
Bitte warten ..
Mitglied: ovu-p86
23.09.2011 um 23:29 Uhr
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
Bitte warten ..
Mitglied: bastla
24.09.2011 um 13:12 Uhr
Hallo ovu-p86!
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
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Lösche Inhalt in bestimmten Unterordner wenn älter als

gelöst Frage von KnuefiBatch & Shell7 Kommentare

Hallo, ich benötige eure Hilfe. Ich habe unterstehendes Script, leider funktioniert es nicht. Es wird nichts gelöscht. Was habe ...

Backup

Mit cmd nur Unterordner und dessen Inhalt kopieren

gelöst Frage von red-edBackup5 Kommentare

Guten Tag, ich bin schon öfters auf eurer Seite fündig geworden, nun habe ich aber ein Problem das bestimmt ...

VB for Applications

Outlook Email VBScript Inhalt

gelöst Frage von TheFalconVB for Applications2 Kommentare

Hallo zusammen, habe hier ein kleines VBScript welches fast perfekt läuft: Er werden jetzt die Inhalte wie folgt ausgegeben: ...

Windows 7

Über die CMD nur einen Ordnerinhalt mit Unterordnern löschen

gelöst Frage von M.MarzWindows 713 Kommentare

Hallo zusammen, ich möchte gerne innerhalb von einem Ordner der auf C: liegt alles löschen. Zum Testen habe ich ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 5 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 8 StundenAdministrator.de Feedback10 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...