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

Brauche ein script zum löschen von ordner

Frage Entwicklung VB for Applications

Mitglied: MeiSeed

MeiSeed (Level 1) - Jetzt verbinden

26.06.2007, aktualisiert 12:25 Uhr, 3861 Aufrufe, 2 Kommentare

Hi zusammen

ich brauche eure hilfe bei einem script

hier das script
01.
'************************************************************ 
02.
'  
03.
' Löscht alle Dateien, die seit einem bestimmten Datum 
04.
' nicht mehr geändert wurden 
05.
06.
'************************************************************ 
07.
 
08.
Set fso = CreateObject("Scripting.FileSystemObject") 
09.
Set WSHShell = WScript.CreateObject("WScript.Shell") 
10.
On Error Resume Next 
11.
 
12.
 
13.
'******* hier eigenen Bedürfnissen anpassen ***************** 
14.
 
15.
dim Verzeichnis(2) 
16.
Verzeichnis(0) = "C:\Dokumente und Einstellungen\eub\Lokale Einstellungen\Temp" 
17.
Verzeichnis(1) = "C:\Dokumente und Einstellungen\eub\Lokale Einstellungen\Temporary Internet Files" 
18.
Verzeichnis(2) = "C:\Dokumente und Einstellungen\eub\Lokale Einstellungen\Verlauf" 
19.
 
20.
Aufheben    = 14 'Anzahl der Tage 
21.
 
22.
'********Ende der Anpassungen******************************** 
23.
 
24.
 
25.
for n=0 to 2 
26.
	Set ordner = fso.GetFolder(Verzeichnis(n)) 
27.
	heute = Date() 
28.
	DeleteInFolder(ordner) 
29.
next 
30.
 
31.
Sub DeleteInFolder(ordner) 
32.
	Set dateien = ordner.Files 
33.
	' Alle Dateien in diesem Ordner abklappern 
34.
	For Each datei In dateien 
35.
	  If datei.DateLastModified < (heute - Aufheben) Then 
36.
	    on error resume next 
37.
	     datei.delete 
38.
             if err and err<>70 then msgbox "Unerwarteter Fehler (Code="&err&")",16 : wscript.quit 
39.
             on error goto 0 
40.
	  End If 
41.
	Next 
42.
	Set untere = ordner.SubFolders 
43.
	'Unterordner abklappern, DeleteInFolder rekursiv aufrufen 
44.
	For Each unter In untere 
45.
	  DeleteInFolder(unter) 
46.
	Next 
47.
End Sub
mit dem script kann ich die dateien die älter als xy sind aus einem ordner und seinen unterordner löschen
aber die unterorder bleiben dann leer da.
meine frage ist wie kann ich es machen das auch die ordner gelöscht werden die keine dateien mehr haben.
Mitglied: bastla
26.06.2007 um 11:03 Uhr
Hallo MeiSeed und willkommen im Forum!

Du könntest nach dem rekursiven Aufruf von "DeleteInFolder" den Inhalt des eben behandelten Ordners überprüfen.

Anmerkung: Da Du übrigens "untere" anderweitig ohnehin nicht benötigst, wäre auch die direkte Verwendung der "SubFolders"-Aufzählung möglich.

Daraus ergäbe sich etwa folgender Code:
01.
    ... 
02.
    Next 
03.
    'Unterordner abklappern, DeleteInFolder rekursiv aufrufen 
04.
    For Each unter In <b>ordner.SubFolders</b> 
05.
       DeleteInFolder(unter) 
06.
<b>	   If (unter.SubFolders.Count + unter.Files.Count) = 0 Then 
07.
	       unter.Delete 
08.
	   End If</b> 
09.
    Next 
10.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: MeiSeed
26.06.2007 um 12:25 Uhr
Dake für das wilkommen

und danke für die schnelle antwort hat alles prima geklappt

grüße
MeiSeed
Bitte warten ..
Ähnliche Inhalte
Windows Tools
Temp Ordner mit Script mit variablem Tagesrythmus löschen
gelöst Frage von ThunderbirdOPWindows Tools9 Kommentare

Hallo zusammen, ich bräuchte Hilfe bei folgender Aufgabenstellung: Ich muss ein Script mit Windows Board-Mitteln erstellen (Batch, Powershell, o.ä), ...

Batch & Shell
Script nach Dateinamen löschen
gelöst Frage von KnuefiBatch & Shell19 Kommentare

Hallo mal wieder, ich versuche ein Script zu schreiben, das nach gewünschten Dateinamen in bestimten Ordner sucht und wenn ...

Entwicklung
Powershell Script zum löschen von Userprofilen
Frage von Thomas91Entwicklung10 Kommentare

Moinmoin, ich versuche mich gerade mal wieder am scripten mit Powershell. Meine Vorstellung waren: Nach Ausführen des Scriptes wird ...

Windows Server
Ordner auf privaten Netzlaufwerk löschen
Frage von SebastianProWindows Server5 Kommentare

Hallo, wir haben ein Windows 7 Computer in einer Domäne (SBS 2011) hat ein Netzlaufwerk verbunden. Nun wurde von ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless8 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...