Auf dieser Seite geht es ausnahmsweise mal nicht um Oszilloskope. Ich biete hier eine Bibliothek mit Visual-Basic-Scripten zur freien Verwendung an.
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. |
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 . Der Ordner von Filzip muß sich in der Umgebungsvariable Path befinden.
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.
Ö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`).
'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 |