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

VBscript ZIP Dateien in jedem Ordner mit Dateien aus dem root füllen

Frage Entwicklung VB for Applications

Mitglied: chrizz-at

chrizz-at (Level 1) - Jetzt verbinden

03.12.2009, aktualisiert 16:20 Uhr, 3115 Aufrufe

Hallo liebes Forum,
ich habe ein Script erstellt welches Rekursiv in jedem Ordner eine ZIP Datei erstellt.

Ich möchte nun diese ZIP Dateien die in jedem Ordner liegen mit Dateien füllen..
Und zwar jene Dateien die im Root verzeichnis jedes ordners liegen..


Die ZIP Files werden schön angelegt nur beim 2. Teil unten funktioniert das nicht mit CopyFile..
-> Hier Zeile 86!

Gibt es eine andere Methode Dateien (ohne Ordnern) aus einem die in einem Ordner liegen zusammenzufassen und in die ZIP File zu schieben?

Ausserdem sollen die Rekursionen nur bis zu einer gewissen Ebene ausgeführt werden.
zb. bis D:\705000\test\test

01.
Option Explicit 
02.
 
03.
' Aufruf der Routine 
04.
' Konstanten definieren 
05.
Const srcDir = "D:\705000" 
06.
Const destDir = "D:\705000" 
07.
Const OverWriteFiles = "true" 
08.
 
09.
' Variablen Definieren 
10.
Dim log, Logfile, ErrorLog, ErrorFile, FSO 
11.
 
12.
' Log Files öffnen 
13.
Set FSO = CreateObject("Scripting.FileSystemObject") 
14.
Set LogFile = FSO.OpenTextFile("C:\" & Date & ".log",8,true) 
15.
Set ErrorFile = FSO.OpenTextFile("C:\" & Date & "_errors.log",8,true) 
16.
 
17.
log = "" 
18.
AddLog vbCrLf & "Archivierte Daten am " & Date() & " um " & time() & vbCrLf & vbCrLf 
19.
Errorlog = "" 
20.
 
21.
ZIP srcDir, destDir, 3 
22.
kopieren srcDir, destDir, 3 
23.
 
24.
LogFile.Writeline(log) 
25.
ErrorFile.Writeline(ErrorLog) 
26.
 
27.
 
28.
Private Sub Addlog(logLine) 
29.
	log = log & logLine & CHR(13) 
30.
End Sub 
31.
 
32.
Private Sub AddErrorlog(logLine) 
33.
	errorlog = errorlog & logLine & CHR(13) 
34.
End Sub 
35.
 
36.
 
37.
private Sub ZIP(srcDir, destDir, tiefe) 
38.
 
39.
	' Deklaration der Variablen 
40.
	Dim FSO, Verzeichnis, UnterVerzeichnis 
41.
	 
42.
	' Objekt erzeugen 
43.
	Set FSO = CreateObject("Scripting.FileSystemObject") 
44.
	 
45.
	' Referenz auf SourceOrdner 
46.
	Set Verzeichnis = FSO.GetFolder(srcDir) 
47.
	 
48.
	Dim ts, BlankZIP, x, Folder, File 
49.
 
50.
	' Leere ZIP Datei erstellen, wenn keine Vorhanden in Source Ordner 
51.
	If not FSO.FileExists("test.zip") then 
52.
		Set ts = FSO.OpenTextFile(srcDir & "\" & "test.zip", 8, vbtrue) 
53.
		BlankZip = "PK" & Chr(5) & Chr(6) 
54.
		For x = 0 to 17 
55.
		BlankZip = BlankZip & Chr(0) 
56.
		ts.Write BlankZip 
57.
		Next 
58.
	End if 
59.
	 
60.
	' Alle Unterverzeichnisse auflisten 
61.
	For Each UnterVerzeichnis in Verzeichnis.Subfolders 
62.
			ZIP UnterVerzeichnis, UnterVerzeichnis, 3 
63.
	Next 
64.
End Sub 
65.
 
66.
 
67.
private Sub kopieren(srcDir, destDir, tiefe) 
68.
 
69.
	' Deklaration der Variablen 
70.
	Dim FSO, Verzeichnis, UnterVerzeichnis 
71.
	 
72.
	' Objekt erzeugen 
73.
	Set FSO = CreateObject("Scripting.FileSystemObject") 
74.
	 
75.
	'  Wenn das Verzeichnis existiert 
76.
	If FSO.FolderExists(srcDir) and (tiefe = 3) then 
77.
		AddLog srcDir & " -> " & destDir & "\" & "test.zip" 
78.
	End if 
79.
	Addlog(" " & vbCrLF) 
80.
	 
81.
	' Referenz auf SourceOrdner 
82.
	Set Verzeichnis = FSO.GetFolder(srcDir) 
83.
	 
84.
	Dim Datei 
85.
	For Each Datei in Verzeichnis.Files 
86.
		FSO.CopyFile srcDir & "\" & Datei.Name, destDir & "\" & "test.zip" 
87.
		if Err.Number <> 0 then 
88.
			AddErrorLog(Now() & ": Fehler beim Kopieren von: " & Datei.Name & " - Pfad: " & Datei.Path & " - Größe: " & FormatNumber(Datei.Size/1024,2,,,True) & " KB" & vbCrLf) 
89.
			AddErrorLog("Grund: " & Err.Description & vbCrLf) 
90.
			Err.Clear 
91.
		End if 
92.
	Next 
93.
	 
94.
	' Alle Unterverzeichnisse auflisten 
95.
	For Each UnterVerzeichnis in Verzeichnis.Subfolders 
96.
			kopieren UnterVerzeichnis, UnterVerzeichnis, 3 
97.
	Next 
98.
End Sub 
99.
Errorfile.Close 
100.
Logfile.Close
Bitte um eure Hilfe
LG Christoph
Ähnliche Inhalte
Batch & Shell
Alle Dateien außer zip löschen
gelöst Frage von chb1982Batch & Shell4 Kommentare

Hallo zusammen, hat jemand eine Idee wie ich es schaffe alle Dateien, außer die eines bestimmten Dateityps in einem ...

PHP
ZIP-Datei auf Server speichern
gelöst Frage von YanmaiPHP23 Kommentare

Hallo ihr Administratoren, ich möchte eine ZIP-Datei auf einem Server speichern. Dabei habe ich schonmal diesen Code: Aber als ...

Windows 7
ZIP-Datei entpacken
Frage von r00t-1337Windows 76 Kommentare

Hallo zusammen, hat jemand einen Befehl parat um mit einer .cmd-Datei eine zuvor auf c:\temp kopierte ZIP-Datei in ein ...

Microsoft
PDFDatei bzw. ZIP Ordner werden nicht angezeigt
Frage von novregenMicrosoft

Folgendes Problem : Ein Benutzer arbeitet auf TS W2008R2 Server, IE 11 Adobe X - bislang kam bei PDFs ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter wieder installieren auf einer frischen Windows-Installation

Tipp von Lochkartenstanzer vor 12 StundenMicrosoft Office

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 14 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 15 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 18 StundenMicrosoft Office1 Kommentar

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Server-Hardware
Veeam Backup Server stürzt alle paar Tage ab
Frage von Leo-leServer-Hardware11 Kommentare

Hallo Forum, ich habe momentan folgendes Problem. Veeam Backup and Replication 9.5 u2 auf voll gepatchten DL 380 G7 ...

Windows 10
Win10 Laptop findet keine Netzwerkgeräte und Freigaben mehr
Frage von CoolzeroWindows 1010 Kommentare

Hi, seit ein paar Tagen habe ich das Problem das mein Windows 10 Laptop keine Geräte mehr in der ...

Batch & Shell
Dateien verschieben mit batch
gelöst Frage von michi-ffmBatch & Shell10 Kommentare

Hallo Zusammen hat jemand evtl eine Idee? Zunächst hier das Skript: Leider werden keine UNC-Pfade unterstüzt, kann mir jemand ...