LotusScript und der WSH

Special Folders

Die Eigenschaft SpecialFolders enthält eine Sammlung der speziellen Windows-Systemordner. Greifen Sie mit LotusScript auf die gesamte Sammlung zu, können Sie diese als Feld verwenden. Das Beispiel in Listing 1 liest der Reihe nach alle definieren Systemordner aus und verkettet deren Namen in einer Variablen vom Typ String. Abschließend wird der gesamte Inhalt in einem Mitteilungsfenster vom Typ MessageBox ausgegeben (Bild 1).

Bild 1: Die Ausgabe des Skripts.
Bild 1: Die Ausgabe des Skripts.

Sub Click(Source As Button)
Dim wsh As Variant
Dim i As Integer
Dim text As String
On Error Goto Fertig
Set wsh = CreateObject("Wscript.Shell")
i = 0
text = ""
While wsh.SpecialFolders(i)<>""
text = text + wsh.SpecialFolders(i) + Chr(13)
i = i +1
Wend
Exit Sub
Fertig:
Msgbox "Es sind " + Cstr(i) + " Spezialordner vorhanden"
+ Chr(13) + Chr(13) + text, 64, "Systemordner"
Exit Sub
End Sub

Eine weitere Möglichkeit ist die Erstellung einer Verknüpfung in einem Systemordner. Dabei können die einzelnen Ordner direkt über ihren Namen angesprochen werden. Beispiele für einzelne Ordnernamen sind

  • AllUsersDesktop: Arbeitsoberfläche für alle Benutzer.

  • AllUsersStartup: Autostartgruppe für alle Benutzer.

  • Desktop: Arbeitsoberfläche des aktuellen Benutzers.

  • Fonts: Zeichensätze.

  • SendTo: Ordner SendTo im Kontextmenü.

  • StartMenu: Eintrag des Startmenüs.

Der folgende LotusScript-Programmcode erzeugt – die nötigen Zugriffsrechte vorausgesetzt – in der Autostartgruppe für alle Benutzer eine Verknüpfung auf Lotus Notes:'

Dim Link As Variant
Set wshshell = CreateObject("WScript.Shell")
autodir = wshshell.SpecialFolders("AllUsersStartUp")
neuerlink = autodir & "\Notes.lnk"
Set link = wshshell.Createshortcut(neuerlink)
link.TargetPath = "notes.EXE"
Call link.Save