VBScript

Auf dieser Seite geht es ausnahmsweise mal nicht um Oszilloskope. Ich biete hier eine Bibliothek mit Visual-Basic-Scripten zur freien Verwendung an.



18.02.2006

Menial Library 1.10

Inhalt

Funktionen
Anwendungsbeispiel
   Bearbeiten der Umgebungsvariable Path
   Quellcode
Download
Versionsfortschreibung

Funktionen

Die Funktionen und deren Parameter sind in der Bibliothek beschrieben und mit je einen Beispiel versehen.

Funktion Beschreibung
copyFolder Kopiert einen Ordner mit Inhalt. Unterordner werden nicht mit kopiert, eine Dateimaske ist wählbar. Existiert der Zielordner nicht, wird er erzeugt.
copyFolderRecursive Kopiert einen Ordner mit Inhalt und Unterordnern. Existiert der Zielordner nicht wird er erzeugt.
createPath Anlegen eines Ordnerstrangs.
getTimeDifference Ermittelt eine Zeitdifferenz zwischen zwei Ereignissen.
searchFolder Suchen eines Unterordners. Suchname kann auch teilweise angegeben werden.
version Liefert die Bibliotheksversion als Zeichenkette.
zipFolder Verpackt einen Ordner.

Anwendungsbeispiel

Als Anwendungsbeispiel habe ich ein Script zur Datensicherung gewählt. In einen Feld werden alle zu sichernden Dateien beschrieben. Das Script arbeitet die Tabelle ab und verpackt die angegebenen Dateien in ein gewähltes Ziel. Als Packprogramm wählte ich die Freeware Filzip Seite in Deutsch In neuem Fenster öffnen . Der Ordner von Filzip muß sich in der Umgebungsvariable Path befinden.

Bearbeiten der Umgebungsvariable Path

Windows 98/ME

In der autoexec.bat befindet sich ein Eintrag ´path = C:\Programme...`. An diesen, falls sich Filzip da befindet, ´;C:\Programme\Filzip` anhängen und den Rechner neu starten.

Windows 2000/XP

Öffnen der Systemsteuerung und aktivieren des Reiters Erweitert. Taste Umgebungsvariable anklicken, die Variable Path markieren Bearbeiten wählen und den Pfad von Filzip mit vorangestellten Semikolon anhängen (z.B.: ´;C:\Programme\Filzip`).

Beispiel

'Datensicherung als Anwendungsbeispiel für ´Menial Library`.
'M.Günther (mario-guenther@gmx.de) KEINE HAFTUNG!
'´Filzip` muß sich im ´Path` befinden!
Execute CreateObject("Scripting.FileSystemObject").OpenTextFile("menialLibrary.vbs").ReadAll

Const INDEX_SOURCE_FOLDER   = 0
Const INDEX_SOURCE_FILES    = 1
Const INDEX_COPY_SUB_FOLDER = 2
Const INDEX_DEST_NAME       = 3

Dim backupDescription(10, 4)
Dim index, backupFolder

index = 0
backupFolder = "C:\Archiv"

backupDescription(index, INDEX_SOURCE_FOLDER)   = "C:\Windows\Web"      'Quelle
backupDescription(index, INDEX_SOURCE_FILES)    = "*.*"                 'Quelldateimaske
backupDescription(index, INDEX_COPY_SUB_FOLDER) = False                 'Sollen Unterordner mit kopiert werden
backupDescription(index, INDEX_DEST_NAME)       = "Windows Web"         'Name des Archives
index = index + 1

backupDescription(index, INDEX_SOURCE_FOLDER)   = "C:\Eigene Dateien"
backupDescription(index, INDEX_SOURCE_FILES)    = "*.doc"
backupDescription(index, INDEX_COPY_SUB_FOLDER) = True
backupDescription(index, INDEX_DEST_NAME)       = "Dokumente"
index = index + 1

backupDescription(index, INDEX_SOURCE_FOLDER)   = vbNullString          'Endekennung
backupDescription(index, INDEX_SOURCE_FILES)    = vbNullString
backupDescription(index, INDEX_COPY_SUB_FOLDER) = False
backupDescription(index, INDEX_DEST_NAME)       = vbNullString



Dim fso, startTime

    startTime = Time
    backupFolder = backupFolder + "\" & Date
    createPath backupFolder
    index = 0
    While backupDescription(index, INDEX_SOURCE_FOLDER) <> vbNullString
        zipFolder backupDescription(index, INDEX_SOURCE_FOLDER), backupDescription(index, INDEX_COPY_SUB_FOLDER), backupDescription(index, INDEX_SOURCE_FILES), backupFolder, backupDescription(index, INDEX_DEST_NAME)
        index = index + 1
    Wend
    MsgBox "Backup beendet." + vbCrLf + "Dauer: " + getTimeDifference(startTime), vbInformation, Date
  

Download

Das Archiv umfasst die Bibliothek und das Beispielskript.

menialLibrary.zip (3,00 kBytes)

Versionsfortschreibung

Version 1.10

Datum: 18.02.2006

Neue Funktion searchFolder.
Rückgabe der Funktion version als Zeichenkette.

Version 1.01

Datum: 27.12.2005

Erstversion und Veröffentlichung im Internet auf der Osziseite.