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 »