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, 5760 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 ...

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 ...

Exchange Server

Inhalt von Postfächern in Exchange löschen

gelöst Frage von m.reegerExchange Server9 Kommentare

Hallo liebe Admins, ich bin gerade dabei den Exchange aufzuräumen und stoße hier mal wieder an meine Powershell-Kenntnis grenzen. ...

Neue Wissensbeiträge
Sonstige Systeme
Es war einmal ein BeOS - Wer erinnert sich noch?
Information von BassFishFox vor 12 StundenSonstige Systeme4 Kommentare

Hallo, Bin gerade ueber Haiku gestolpert, von dessen Existenz als "Nachfolger des BeOS" ich wusste nur mich nie wirklich ...

Datenschutz

Microsoft und DSGVO - ob das wohl jemals klappt (Probleme beim Datenabfluss für Office Pro Plus)?

Tipp von VGem-e vor 16 StundenDatenschutz3 Kommentare

Servus Kollegen, siehe Aber wer setzt schon MS Office Pro Plus ein? Wie dann der Stand beim "normalen" MS ...

Windows 10

Macht Windows 10.1809 Probleme mit gemappten Netzlaufwerken (betrifft wohl insbes. AMD-Hardware und Trend Micro AV-Produkte)?

Tipp von VGem-e vor 20 StundenWindows 103 Kommentare

Moin Kollegen, grad dazu gefunden und Hatten wir dies nicht bei früheren W10-Upgrades ebenfalls? Da bleibt nur, das Upgrade ...

Humor (lol)

Das neue Miniatur Wunderland OFFICIAL VIDEO - worlds largest model railway - railroad

Information von StefanKittel vor 1 TagHumor (lol)2 Kommentare

Hallo, wer noch nie im Miniatur Wunderland war, sollte es dringend mal nachholen. Es gibt eine neues Video. Viele ...

Heiß diskutierte Inhalte
Viren und Trojaner
Office365 Trojaner Analyse
Frage von ZeppelinViren und Trojaner14 Kommentare

Liebe Community, ich wende mich an euch, um mehr über den Office365 Trojaner zu erfahren, welcher grade seine Runden ...

Netzwerkgrundlagen
Werksreset HP 1920S-24G
gelöst Frage von HenereNetzwerkgrundlagen14 Kommentare

Servus zusammen, ich habe mir 2 neue Switche zugelegt, doch ich komme damit nicht ganz klar. Waren Vorführgeräte zum ...

DSL, VDSL
DSL Monitoring Tool - Quick and dirty?
Frage von george44DSL, VDSL13 Kommentare

Liebe Gemeinde, ich suche ein einfaches und vor allem schnell zu installierendes Monitoring-Tool zur kontinuierlichen Dokumentation (nur) der Internetanbindung. ...

Firewall
Sophos UTM 9.5 Firewall Log-File durchsuchen
gelöst Frage von Leo-leFirewall12 Kommentare

Hallo zusammen, weiß jemand von Euch, ob man bei der Sophos die Firewall logs noch etwas besser filtern kann? ...