#264816 effeffOstfriesland, 23.03.2011, 10:51:22 (editiert von effeff, 23.03.2011, 10:52:07) |
@balu_baer: Sicherungsscript... (ed) (pc.coding) |
Hallo,
\'Script by effeff 03/2011
\'Das Script sucht aus einem Verzeichnis alle Dateien mit einer bestimmten Endung heraus und
\'erstellt mittels 7-Zip von jeder Datei eine gepackte Version, in deren Dateiname das
\'Erstellungsdatum der Originaldatei enthalten ist. Die gepackten Dateien werden in einem
\'Unterverzeichnis des durchsuchten Verzeichnisses gespeichert. Zum Anpassen des Scriptes
\'bitte die mit Kommentaren versehenen Zeilen benutzen.
DIM FSO
DIM fld
DIM fil
DIM Datum
Dim Jahr
Dim Monat
Dim Tag
Dim Stunden
Dim Minuten
Dim Sekunden
Dim Befehl
Dim oShell
Dim Backupverzeichnis
Dim Sicherungsverzeichnis
Dim Dateityp
Dim i
On Error Resume Next
Set FSO=CreateObject(\"Scripting.FileSystemObject\")
\'Hier musst du den kompletten Pfad angeben, in welchem die zu sichernden Dateien sich befinden:
Backupverzeichnis=\"D:\\Backup\\\"
\'Hier wird ein Unterverzeichnis angegeben, in welches die gepackten Dateien gespeichert werden sollen:
Sicherungsverzeichnis=Backupverzeichnis & \"7z\\\"
\'Hier wird angegeben, welche Endung die zu packenden Dateien haben:
Dateityp=\".bak\"
Set fld=FSO.GetFolder(Sicherungsverzeichnis)
If fld Is Nothing Then
FSO.CreateFolder(Sicherungsverzeichnis)
End If
Set fld=FSO.GetFolder(Backupverzeichnis)
i=0
For Each fil in fld.Files
If Right(fil.Name, 4)=\"Dateityp\" Then
Jahr=Year(fil.DateCreated)
Monat=Zweistellig(Month(fil.DateCreated))
Tag=Zweistellig(Day(fil.DateCreated))
Stunden=Zweistellig(Hour(fil.DateCreated))
Minuten=Zweistellig(Minute(fil.DateCreated))
Sekunden=Zweistellig(Second(fil.DateCreated))
Datum=Jahr & Monat & Tag & Stunden & Minuten & Sekunden
\'Hier wird der Befehl zum packen zusammengebastelt. Für Pfade mit Leerzeichnen ist das erste Beispiel zu wählen/anzupassen. Ansonsten das zweite Beispiel bitte anpassen.
Befehl=\"C:\\\" & CHR(34) & \"Program Files\" & CHR(34) & \"\\7-Zip\\7z a -mx9 \" & Sicherungsverzeichnis & \"Backup_vom_\" & Datum & \".7z \" & Backupverzeichnis & fil.Name
\'Befehl=\"C:\\Programme\\7zip\\7z a -mx9 \" & Sicherungsverzeichnis & \"Backup_vom_\" & Datum & \".7z \" & Backupverzeichnis & fil.Name
Set oShell = WScript.CreateObject (\"WScript.Shell\")
oShell.run Befehl
Set oShell = Nothing
i=i+1
End If
Next
Set fil=Nothing
Set fld=Nothing
Set FSO=Nothing
MsgBox (\"Die 7zip-Verarbeitung sollte beendet sein!\" & vbCrLf & \"Es wurden \" & i & \" Dateien gesichert\" & vbCrLf & \" in \" & Sicherungsverzeichnis & \"!\")
Function Zweistellig (Nr)
If Nr < 10 then
Zweistellig= \"0\" & Nr
Else
Zweistellig=Nr
End If
End Function
-- |
|
#264820 balu_baer23.03.2011, 11:04:06 @ effeff |
@balu_baer: Sicherungsscript... |
Hi effeff, |
|
#264825 effeffOstfriesland, 23.03.2011, 11:25:25 @ balu_baer |
@balu_baer: Sicherungsscript... |
> Hi effeff, -- |
|
#264867 effeffOstfriesland, 23.03.2011, 15:12:21 @ balu_baer |
@balu_baer: Sicherungsscript... |
> Hi effeff, -- |
|
#264871 balu_baer23.03.2011, 15:24:05 @ effeff |
@balu_baer: Sicherungsscript... |
> Wenn du Dateien kopieren willst zum Testen und die Originalangaben für |
|
#264878 Jeff ClaySyria Planum, 23.03.2011, 15:38:23 @ balu_baer |
@balu_baer: Sicherungsscript... |
> nur kauen muss ich noch selbst -- |
|
#264879 balu_baer23.03.2011, 15:40:07 @ Jeff Clay |
@balu_baer: Sicherungsscript... |
> > nur kauen muss ich noch selbst |
|
#264880 effeffOstfriesland, 23.03.2011, 15:47:37 @ Jeff Clay |
@balu_baer: Sicherungsscript... |
> > nur kauen muss ich noch selbst -- |