Tips: Dateien in monatsaktuellen Ordner herunterladen (CHIP 12/2000)

Dateien in monatsaktuellen Ordner herunterladen

Vor kurzem beschrieb CHIP, wie man mit dem Scripting Host automatisch Ordner erstellt, die das aktuelle Datum als Namen tragen. Kann man nun in Verbindung mit dem Download-Manager Getright Dateien direkt in diesen Ordner herunterladen?

Ja, das geht. Das damals gedruckte Listing basiert auf VBScript. Mit dieser Programmiersprache kann ein Programm auch Daten in die Registry schreiben oder sie daraus lesen. Und genau das muss das neue Listing tun, denn Getright in der aktuellen Version 4.2c und der kleinere Bruder Mygetright legen die Infos fⁿr ihre Default-Download-Ordner in der Registry ab. Getright 4.2c nutzt dazu den Schlⁿssel ╗HKEY_CURRENT_USER\ Software\ HeadLight\ GetRight\ Config\ DefaultDir½, Mygetright den Schlⁿssel ╗HKEY_CURRENT_USER\ Software\ HeadLight\ MyGetRight\ Config\ DefaultDir½.
Um den Download-Ordner in die Registry zu schreiben, mⁿssen Sie das VBScript CREATEDIR.VBS aus CHIP 8/2000 erweitern. Hierzu sind wenige Zeilen zusΣtzlicher Code erforderlich. Das ⁿberarbeitete Listing finden Sie auch als VBS-Datei auf der CHIP-CD CHIP-Code CREATEDIR. Das fⁿr Mygetright angepasste Skript sieht folgenderma▀en aus:

Dim objFileSystem
Dim objShell
Dim szOrdner
Dim szRegKey

Set objFileSystem =CreateObject(äScripting.FileSystemObjectä)
Set objShell = CreateObject(äWscript.Shellä)

szOrdner = äC:\ Daten\ Download\ ô & CStr(date)
szRegKey =ôHKEY_CURRENT_USER\ Software\ HeadLight\MyGetRight\ Config\ DefaultDirä

If
(objFileSystem.FolderExists(szOrdner)) Then
   Msgbox äDer Ordner ä & szOrdner & ä ist bereits vorhanden!ä

Else

objFileSystem.CreateFolder(szOrdner)
   objShell.RegWrite szRegKey,szOrdner
End If

So funktioniert das Listing: Zuerst definiert das Programm die zwei neuen Variablen ╗objShell½ und ╗szRegKey½, wobei es ╗szRegKey½ spΣter mit dem Namen des betreffenden Schlⁿsselwertes fⁿr die Registry belegt. Au▀erdem erzeugt das VBS-Skript ein Objekt ╗objShell½ des Typs ╗Wscript.Shell½. Mit dessen Hilfe kann es dann auf Umgebungsvariablen und Registry-EintrΣge zugreifen.
Als nΣchstes belegt das Skript die Variable ╗szOrdner½ mit dem Ordnerpfad und dem Namen des Verzeichnisses. Mit ╗RegWrite½ des Objektes ╗objShell½ schreibt der Scripting Host den Pfad in die Registry. Als Parameter nutzt er ╗szRegKey½, in dem der Schlⁿsselname hinterlegt ist, und ╗szOrdner½, in dem das Skript den Pfad des Download-Ordners speichert.
Interessant fⁿr die Arbeit mit der Registry sind noch zwei weitere Methoden von ╗objShell½, nΣmlich ╗RegRead½ und ╗RegDelete½. ╗RegRead½ liest einen Wert aus der Registry, wΣhrend ╗RegDelete½ einen Eintrag in der Datenbank l÷scht.