Webseite aus ╗Favoriten½ erzeugen

Sie m÷chten gern auf einer Homepage im Internet Ihre gesammelten ╗Favoriten½ ver÷ffentlichen. Allerdings haben Sie wenig Lust, dafⁿr die Links jeder einzelnen Verknⁿpfung per Hand in eine HTML-Datei zu kopieren.

Das VB-Skript SCANFAVORITS.VBS beauftragt den Windows Skripting Host mit dieser Flei▀arbeit und erzeugt aus den ╗Favoriten½ oder einem anderen Ordner automatisch eine Linkliste fⁿr den Einsatz im Internet. Das komplette Skript finden Sie auf der Heft-CD unter CHIP-Code TIPPs11. Rufen Sie das Skript auf, fragt es Sie zuerst nach dem Quellordner. Den speichert es als Liste unter ╗listArgs½. Sofern Sie keinen Parameter angeben, erkundigt sich das Skript durch den Befehl ╗InputBox()½ in einem Dialog danach. Die Vorbelegung mit dem aktuellen Pfad des Ordners ╗Favoriten½ ist m÷glich, indem das Skript ihn aus der Registry liest:

If listArgs.Count = 0 Then szFolder = objWSHShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites") szFolder = InputBox("Aus welchem Ordner wollen Sie die Links HotLink-Seite generieren?","Ordner auswΣhlen",szFolder) Else szFolder = listArgs(0) End If

Es folgt ein weiterer Eingabedialog fⁿr Pfad und Dateiname der Quelldatei. Damit dieser Dialog standardmΣ▀ig das Dokument HOTLINKS.HTML im TEMP-Ordner vorschlΣgt, ermittelt das Skript den aktuellen Pfad mit der Methode ╗GetSpecialFolder(2)½, wobei die ╗2½ fⁿr den Ordner TEMP steht, und erweitert ihn dann um den Dateinamen:

szHtmlFile = objFileSystem.GetSpecialFolder(2).Path szHtmlFile = szHtmlFile & "\HotLinks.html"

Nachdem das Skript die Datei mit dem HTML-Kopf angelegt hat, ⁿbernimmt die Funktion ╗ListLinks()½ die Informationen aus dem Quellordner als Links und schlie▀t die HTML-Datei ab.
An die Funktion ⁿbergeben Sie den Pfad des Quellordners und die mit ╗1½ vorbelegte Variable ╗intLevel½. Dieser Wert steht fⁿr die aktuelle Tiefe in der durchsuchten Verzeichnisstruktur. Wenn das Skript Unterverzeichnisse erkennt, erh÷ht es den Wert automatisch:

For Each objSubFolder In objFolder.SubFolders ListLinks objSubFolder.path, intLevel+1 Next

Anhand vom ╗intLevel½ erzeugt das Skript automatisch die HTML-Befehle fⁿr eine ▄berschrift mit dem Namen des Ordners, also beispielsweise beim Wert ╗1½ die Tags ╗

½ und ╗