Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verknüpfung erstellen

Verknüpfung erstellen
12.01.2004 15:57:02
Alex
Hallo zusammen,
ich möchte per VBA eine Verküpfung auf der Festplatte C:\ erstellen.
Der Pfad zu der Verknüpfung könnte z.B. "C:\Programme\ORANT\BIN\PLUS33W.EXE"lauten.
In den Eigenschaften der Verknüfung soll in der Lasche Verknüpfung volgendes stehen;
Ausführen in: "D:\SQL"
Tastenkombination: "kein"
Ausführen: "Maximiert"
Kommentar: ""
Kann mir jemand bei dieser Sache weiterhelfen???
Danke im Vorraus.
Alex

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfung erstellen
12.01.2004 18:16:29
Nepumuk
Hallo Alex,
du benötigst die "Windows Scripting Host Object Model" Library.

Option Explicit
Public Sub Verknuepfung_erstellen()
Dim WSHShell As New IWshShell_Class
With WSHShell.CreateShortcut("C:\PLUS33W.lnk")
.TargetPath = WSHShell.ExpandEnvironmentStrings("C:\Programme\ORANT\BIN\PLUS33W.EXE")
.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("D:\SQL")
.WindowStyle = 3
.IconLocation = WSHShell.ExpandEnvironmentStrings("C:\Programme\ORANT\BIN\PLUS33W.EXE , 0")
.Save
End With
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk (VBA - Amateur)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige