Verknüpfungen per VBA
Marcel Heimann
Ist es irgendwie möglich (API?) mit Hilfe der XL VBA Verknüpfungen im
Startmenü, auf dem Desktop usw. anzulegen?
Mfg
Marcel
Helma Spona
Mit der API wird es gehen, denke ich. Aber leichter wirst Du es haben wenn
Du die KLasse WScript.Shell verwendest und daraus mit CreateObject ein
Objekt ableitest. Es stellt verschieden Methoden zum Zugriff auf den Desktop
und das Startmenü zur Verfügung.
Infos zur Verwendung findest Du in VBScript Bücher zum WSH, auf der WEbseite
von MS findest Du auch die Dokumentation zum WSH-Objektmodell. Sie mal unter
http://www.microsoft.com/germany/scripting/
Die Verwendung setzt jedoch die Installation des WSH voraus, den gibt es
aber konstenlos von MS für Windows 95/98, NT 4.0 und Windows 2000 auch auf
der oben genannten Seite.
Sollte also eigentlich kein Problem darstellen.
Mfg Helma Spona
Marcel Heimann <mak...@hotmail.com> schrieb in im Newsbeitrag:
3805718...@news.thyssen.com...
Marcel Heimann
wrote:
>Mit der API wird es gehen, denke ich. Aber leichter wirst Du es haben wenn
>Du die KLasse WScript.Shell verwendest und daraus mit CreateObject ein
>Objekt ableitest. Es stellt verschieden Methoden zum Zugriff auf den Desktop
>und das Startmenü zur Verfügung.
Hmm, WSH installieren geht hier leider nicht, das wären einfach zu viele
Rechner (NT 4.0). Hab von hier aus auch leider keine Möglichkeit ins www zu
kommen.
Ich denke mal, mit den API Declares wäre mir schon geholfen. Ideal wäre
natürlich ein wenig Beispielcode.
Trotzdem vielen Dank für den Tip
Mfg
Marcel
Michael Schwimmer
> Rechner (NT 4.0). Hab von hier aus auch leider keine Möglichkeit ins www zu
> kommen.
> Ich denke mal, mit den API Declares wäre mir schon geholfen. Ideal wäre
> natürlich ein wenig Beispielcode.
Hallo Marcel,
Mit der API ist es genauso einfach wie mit WSH.
Folgendes hat bei mir auf WIN 95 geklappt:
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" _
(ByVal Ordner As String, ByVal LinkName As String, _
ByVal Pfad As String, ByVal Argument As String) As Long
Sub LinkErstellen()
Dim Rück&
'Verknüpfung wird auf dem Desktop angelegt
Rück = fCreateShellLink("..\..\Desktop", "Mein Notepad", _
"C:\Windows\Notepad.exe", "")
'In die Autostart Gruppe
Rück = fCreateShellLink("\Startup", "Mein Notepad", _
"C:\Windows\Notepad.exe", "")
Rück = fCreateShellLink("\Autostart", "Mein Notepad", _
"C:\Windows\Notepad.exe", "")
'Ins Programm Menü
Rück = fCreateShellLink("", "Mein Notepad", _
"C:\Windows\Notepad.exe", "")
'Ausgehend vom Verzeichnis Programme in jeden beliebigen Ordner
Rück = fCreateShellLink("..\..\..\Eigene Dateien", "Mein Notepad", _
"C:\Windows\Notepad.exe", "")
'Als letztes Argument kannst du bei diesem Beispiel auch
'eine zu öffnende Datei oder sonstige Startargumente mit
'übergeben
End Sub
MfG
Michael
Marcel Heimann
<Schw...@T-Online.de> wrote:
>Hallo Marcel,
>Mit der API ist es genauso einfach wie mit WSH.
>Folgendes hat bei mir auf WIN 95 geklappt:
Danke, hat bei mir zuhause (W95) auch prima hingehauen.
Nur leider klappt das auf der Arbeit (NT 4) nicht (stkit432.dll nicht
vorhanden). Mit welcher Software wird denn diese DLL geliefert? Anhand des
Dateinamens tippe ich einfach mal auf VB 4.
Gibt es die fCreateShellLink Funktion nicht irgendwie Standardmäßig in
Windows?
Mfg
Marcel