Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Rekursives Löschscript! - Wo ist der Fehler?

Frage Entwicklung VB for Applications

Mitglied: chrizz-at

chrizz-at (Level 1) - Jetzt verbinden

05.12.2008 um 09:03 Uhr, 2610 Aufrufe

Hallo liebe Gemeinde!

Ich habe hier ein Rekursives Löschscript selbst geschrieben, welches Dateien einzeln löscht (die die älter als 14 Tage sind).
Eine Error-Logdatei wird auch erstellt, funktioniert alles so wie es soll.

Nur steht aber auch in der Errorlog etwas was da nicht hingehört! siehe script code!
(Den Ordner habe ich gesperrt, das stimmt so aber das davor -> 2x "Grund: Objekt erforderlich" soll weg)
01.
------- Errorlog ----------- 
02.
 
03.
Grund: Objekt erforderlich 
04.
 
05.
Grund: Objekt erforderlich 
06.
 
07.
05.12.2008 10:06:47: 
08.
Fehler beim Löschen von Ordner: Neuer Ordner (Pfad: C:\VTPFiles\Neuer Ordner) 
09.
Grund: Erlaubnis verweigert. 
10.
 
11.
 
12.
-------- SCRIPT ------------ 
13.
 
14.
 
15.
Option Explicit 
16.
On Error Resume Next 
17.
 
18.
' Konstanten definieren 
19.
Const dir = "C:\VTPFiles" 
20.
Const tage = "14" 
21.
Const logdir = "C:\Logs" 
22.
 
23.
 
24.
' Variablen Definieren 
25.
Dim ErrorLog, ErrorFile, FSO 
26.
 
27.
' Log Files öffnen 
28.
Set FSO = CreateObject("Scripting.FileSystemObject") 
29.
 
30.
' Wenn der Logordner nicht existiert -> erstellen 
31.
If not FSO.Folderexists(logdir) then 
32.
FSO.CreateFolder(logdir) 
33.
End if 
34.
 
35.
Set ErrorFile = FSO.OpenTextFile(logdir & "\" & Date & "_error.log",8,true) 
36.
 
37.
' Datumsfunktion für Dateialter 
38.
Dim alter 
39.
alter = FormatDateTime(Date - tage, 2) 
40.
 
41.
Hauptscript dir, alter 
42.
 
43.
private Sub Hauptscript(dir, alter) 
44.
	' Deklaration der Variablen 
45.
	Dim FSO, Verzeichnis, UnterVerzeichnis, Datei, uDatei 
46.
	 
47.
	' Objekt erzeugen 
48.
	Set FSO = CreateObject("Scripting.FileSystemObject") 
49.
	 
50.
	' Referenz auf SourceOrdner 
51.
	Set Verzeichnis = FSO.GetFolder(dir) 
52.
	 
53.
	' Files löschen (die älter als x tage sind)  
54.
	On Error Resume Next 
55.
	For Each Datei in Verzeichnis.Files 
56.
		If Datediff("d", FormatDateTime(Datei.DateLastmodified, 2), alter) > 0 then 
57.
		Datei.Delete 
58.
			If Err.Number <> 0 then 
59.
					ErrorFile.Writeline(Now() &":" & vbCrLf & "Fehler beim Löschen von Datei: " & Datei.Name & " (Pfad: " & Datei.Path & ")") 
60.
					Errorfile.Writeline("Grund: " & Err.Description & vbCrLf) 
61.
					Err.Clear 
62.
			End if 
63.
		End if 
64.
	Next 
65.
	 
66.
	' Alle Unterverzeichnisse 
67.
	On Error Resume Next 
68.
	For Each UnterVerzeichnis in Verzeichnis.Subfolders 
69.
		' Erneuter Aufruf mit dem Unterverzeichnis 
70.
		Hauptscript dir & "\" & UnterVerzeichnis.Name, alter 
71.
			 
72.
		' Leere (Unter)Ordner löschen 
73.
		If UnterVerzeichnis.Files.Count = 0 then 
74.
			UnterVerzeichnis.Delete 
75.
				If Err.Number <> 0 then 
76.
					ErrorFile.Writeline(Now() &":" & vbCrLf & "Fehler beim Löschen von Ordner: " & UnterVerzeichnis.Name & " (Pfad: " & Unterverzeichnis.Path & ")") 
77.
					Errorfile.Writeline("Grund: " & Err.Description & vbCrLf) 
78.
					Err.Clear 
79.
				End if 
80.
		End if 
81.
	Next 
82.
End Sub 
83.
Errorfile.Close
(Für verbesserungsvorschläge des scriptes bin ich offen )
Danke für eure Hilfe!


lg chris
Ähnliche Inhalte
Batch & Shell
gelöst Dateien in einem Verzeichnis mergen - rekursiv (10)

Frage von frad1980 zum Thema Batch & Shell ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

Server
Fehler in jQuery (7)

Frage von Yanmai zum Thema Server ...

Batch & Shell
gelöst Fehler in Schleife (2)

Frage von miczar zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (28)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (21)

Frage von Kuemmel zum Thema LAN, WAN, Wireless ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...