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

Ordner und Dateien per VBS löschen

Frage Entwicklung VB for Applications

Mitglied: Dynamic94

Dynamic94 (Level 1) - Jetzt verbinden

27.04.2011 um 11:16 Uhr, 9744 Aufrufe, 5 Kommentare

Hallo zusammen



Ich habe einen Ordner für die Scans. Diese werden unter "C:\scans\Meine Scans" abgelegt.
Nun möchte ich ein Script erstellen, welches alle in diesem Ordner enthaltenen Dateien und Ordner löscht, bei welchen das Erstellerdatum älter als drei Tage ist.
Das ganze soll über VBS geschehen.


Könnt Ihr mir da weiterhelfen?



Ich danke Euch herzlichst für Eure Bemühungen!



Gruss
Dynamic
Mitglied: Skyemugen
27.04.2011 um 11:37 Uhr
Aloha,

und ewig dreht sich das Rad der Wiederkehr ... was ich damit ausdrücken will? Hier im Forum findest du für vbs diverse Threads, die sich damit beschäftigen, Dateien (und auch mal Unterordner) zu löschen, die älter als n-Tage sind ...

greetz André

z.B. hier ...
Bitte warten ..
Mitglied: Dynamic94
27.04.2011 um 13:17 Uhr
Zitat von Skyemugen:
Aloha,

und ewig dreht sich das Rad der Wiederkehr ... was ich damit ausdrücken will? Hier im Forum findest du für vbs diverse
Threads, die sich damit beschäftigen, Dateien (und auch mal Unterordner) zu löschen, die älter als n-Tage sind ...

greetz André

z.B.
[http://www.administrator.de/index.php?x=0&y=0&query=vbs+dateien+l%C3%B6schen&what=all&mod=search&searchsource=homepage
hier ...]



Moinmoin André


Danke vielmals für den Tipp!
Ich bin einiges weitergekommen, habe aber trotzdem noch eine Frage.

Ich habe nun dieses Script hier, es funktioniert auch einwandfrei. Jedoch möchte ich eine "fixe" Pfadangabe (C:\scans\Meine Scans) direkt im Code und keine "Abfragebox" am Anfang.
Wie krieg ich dies hin? Ausserdem sollte er eben auch Ordner löschen können.

01.
Dim  objFS, myPath, myFolder, myFile, olddate  
02.
myPath = InputBox("Bitte Pfad eingeben:", "Dateien älter als 3 Tage löschen")  
03.
If myPath = "" Then Call DisplayInfo:  Wscript.Quit (1)  
04.
set objFS = CreateObject("Scripting.FilesystemObject")  
05.
If Not objFS.FolderExists(myPath) Then Call DisplayInfo:  Wscript.Quit (1)  
06.
set myFolder = objFS.GetFolder(myPath)  
07.
olddate = DateAdd("d", -3, Now)  '3 Tage  
08.
for each myfile in myFolder.Files  
09.
If myFile.DateCreated < olddate then objFS.DeleteFile myFile.Path  
10.
next   
11.
Wscript.Quit (0)  
12.
Sub DisplayInfo  
13.
MsgBox "Usage: delmyordner.vbs [FolderPath]", vbExclamation, "Missing Argument"  
14.
End Sub


Danke für Deine Bemühungen!


Gruss
Dynamic
Bitte warten ..
Mitglied: Dynamic94
27.04.2011 um 13:37 Uhr
Sooo, bin nun doch ein Stückchen weitergekommen.
Jedoch bekomme ich nun die Fehlermeldung: 'Then' erwartet --> Zeile 28
Kannst Du mir da helfen?

01.
'*************************************************************************  
02.
'Dateien die älter als intTage sind löschen  
03.
'DateLastModified=Änderungsdatum; DateCreated=Erstellungsdatum  
04.
'WScript.Echo intZahl & " Dateien gelöscht." (Ausgabe gelöschter Dateien)  
05.
'*************************************************************************  
06.
 
07.
Set objFSO = CreateObject("Scripting.FileSystemObject")  
08.
strOrdner = "C:\scans\Meine Scans"			'Ordnerpfad angeben  
09.
strExtension = ""	  
10.
intTage = 1				'Anzahl der Tage angeben  
11.
Set objOrdner = objFSO.GetFolder(strOrdner)  
12.
intZahl = 0  
13.
For Each objDatei In objOrdner.Files  
14.
    If LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _   
15.
        And DateDiff("d", objDatei.DateCreated, Now) > intTage Then  
16.
        objDatei.Delete  
17.
        intZahl = intZahl + 1  
18.
    End If  
19.
Next  
20.
For Each objUnterordner In objOrdner.SubFolders   
21.
    Doku = Doku & vbCrLf & DateDiff("d", objUnterordner.DateCreated, Now) & vbTab & objUnterordner.Name   
22.
    If DateDiff("d", objUnterordner.DateCreated, Now) > intTage Then   
23.
       objUnterordner.Delete 
24.
       intOrdner = intOrdner + 1   
25.
    End If   
26.
Next   
27.
WScript.Echo Mid(Doku, 3)



Gruss
Dynamic
Bitte warten ..
Mitglied: Skyemugen
27.04.2011 um 14:17 Uhr
Aloha,

nein, momentan habe ich den Hals voll in der Scheiße Arbeit ...

VBS ist auch nicht unbedingt meine große Stärke, um ehrlich zu sein (mache oft nur Kleinigkeiten damit)

so far (erstmal)

André
Bitte warten ..
Mitglied: TsukiSan
27.04.2011 um 16:12 Uhr
Hallo Dynamic,

das Script, was du dir gesucht hast, funktioniert. Die Fehlermeldung, die du bekommst kann ich nicht nachvollziehen. Das könnte am BS liegen oder an der Jahreszeit.
Wo ich dir Recht geben könnte, dass wären klitzekleine kosmetische Sachen, die man daran ändern kann.
Aber Schönheit liegt ja immer im Sinne des Betrachters

Gruss
Tsuki
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Dateien (keine Ordner) löschen die älter sind als
gelöst Frage von siziigilendirmezBatch & Shell4 Kommentare

Guten Morgen ich möchte gerne mit einer power Shell Dateien löschen die älter als 30 tage sind. Die Dateien ...

Windows 10
Löschen von Ordner mit Dateien
Frage von jerry32Windows 103 Kommentare

Hallo, ich hatte vor kurzem einen sehr kuriosen Fall Es befanden sich 2 Dateien in einem Ordner von denen ...

Windows Server
Dateien in einem Ordner nach XY Tagen löschen
gelöst Frage von Adnan88Windows Server3 Kommentare

Hallo, ich habe auf dem Server einen Ordner der sich "Scan" nennt, nun da landen Dateien direkt die gescannt ...

VB for Applications
VBS Ordner erstellen - wenn nicht vorhanden!
gelöst Frage von freshman2017VB for Applications1 Kommentar

Hallo, ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert Ich würde jedoch mit ...

Neue Wissensbeiträge
Windows 10

Windows 10 Hello-Anmeldung per Foto ausgehebelt

Tipp von kgborn vor 3 StundenWindows 10

Windows Hello ist eine Funktion, um sich per Fingerabdruck-, Gesichts- oder Iriserkennung bei Windows 10-Geräten anzumelden (siehe), setzt aber ...

Perl

Perl hat heute Geburtstag: 30 Jahre Perl: Lange Gesichter zum Geburtstag

Information von Penny.Cilin vor 11 StundenPerl2 Kommentare

Hallo, auch wenn es wenige wissen und noch weniger Leute es nutzen. Perl hat heute Geburtstag. 30 Jahre Perl ...

Sicherheit

Blackberry stirbt - Keine Updates für Priv mehr

Tipp von certifiedit.net vor 11 StundenSicherheit1 Kommentar

Blackberry wird zu einer 08/15 Firma und geht wohl mehr und mehr den Weg, den HTC schon ging. Von ...

Windows 10

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

Tipp von kgborn vor 2 TagenWindows 1012 Kommentare

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

Heiß diskutierte Inhalte
Windows Server
SCCM 2016: PXE Boot des Clients schlägt fehl
Frage von gabeBUWindows Server23 Kommentare

Hallo Zusammen Ich habe eine Testumgebung erstellt um über SCCM 2016 einen virtuellen Client aufzusetzen. Folgende Maschinen habe ich ...

Netzwerkgrundlagen
Belibiges Teilnetz einer Subnetzmaske rausfinden?
gelöst Frage von CenuzeNetzwerkgrundlagen19 Kommentare

Wundervollen Gutentag, mittlerweile kann ich Subnetting so einigermaßen, aber ein Problem habe ich noch. Netzwerkadresse und Boradcast errechnen ist ...

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

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

Exchange Server
Exchange empfängt Emails - Kann aber keine Senden
gelöst Frage von niklasschaeferExchange Server11 Kommentare

Hallo, ich stehe gerade bei mir zuhause vor folgender Problemstellung. Gegeben sind 2x Hyper-V Host mit Windows Server 2016 ...