---

Hallo,
ich möchte aus einem VBA-Makro in Windows ein Link-Objekt (Datei *.lnk) zu einer Datei oder einem Ordner erzeugen.
Der Benutzer meines Makros erwartet, dass Dateien in einem gewissen Ordner gespeichert werden; bei sehr großen Dateien soll aber ein anders Laufwerk gewählt werden, und dann soll am vorher eigentlich erwarteten Ort eine Verknüpfung zum tatsächlich gewählten Ort der Datei abgelegt werden.
Geht das?
MfG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Willy,

versuch's mal so in der Art:

Code:

---

''Library IWshRuntimeLibrary
''    C:\WINDOWS\System32\wshom.ocx
''***!Windows Script Host Object Model

Sub z()
    Dim objShell As WshShell '*!
    Dim objShortcut As WshShortcut
    Set objShell = New WshShell
    'Ort + Name der Verknüpfung
    Set objShortcut = objShell.CreateShortcut("d:\testlink.lnk")
    'Zieldatei
    objShortcut.TargetPath = "d:\cad\irgendeine.dwg"
    objShortcut.Save
End Sub

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,
wenn ich nur den Code ab "Sub z()" einbaue, habe ich ein Problem mit der Typdefinition:
Benutzerdefinierter Typ nicht deklariert.
Was muss ich mit den Angaben oberhalb "Sub z()" machen? Kann ich den Fehler abstellen, so dass das Makro auch auf anderen PCs ohne Zusätze läuft?
MfG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Willi,

Probier diesen Code:

Sub Link()
  Dim objWSHShell As Object
  Dim objWSHShortcut As Object
  Set objWSHShell = CreateObject("WScript.Shell")

  Set objWSHShortcut = objWSHShell.CreateShortcut("C:\FolderLink.lnk")  'Verknüpfung

  objWSHShortcut.TargetPath = "C:\boot.ini" 'verknüpfte Datei
  objWSHShortcut.Save 'Verknüpfung speichern

  Set objWSHShortcut = Nothing
  Set objWSHShell = Nothing
End Sub

Dies sollte auf jeden Fall funktionieren.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Carsten1210,
dankeschön. Das funktioniert soweit.
Bei Links zu DWG's macht auch ACAD schön ein neues Fenster auf.
Bei Links zu DOC's allerdings startet Windows eine Anwendung Word nochmals, auch wenn schon ein Word läuft; dann ist Word.exe zweimal im Speicher. Kann man das steuern? Oder wird das ein Word(2000)-Problem sein?
MfG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo wwwilli,

Word ist nur einmal als Prozess im Taskmanager / Speicher vorhanden, auch wenn du mehrere Word-Schaltflächen in der Taskleiste sehen kannst.
Du kannst das hier sher schön nachlesen.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Carsten,
verflixt, ich kriege es jetzt nicht mehr nachgebaut.
Normalerweise weiß ich schon, wie das aussieht, wenn Word ein neues Fenster aufmacht. Ich habe in Word ein Autostart-Makro, und das wird normalerweise nicht nochmals gestartet, wenn nur ein neues Fenster aufgeht. Hier aber ist das doch geschehen - und jetzt aber nicht mehr...
Ich hatte den Link aus VBA gestartet mit
Shell Environ("comspec") + " /c " + linkName, vbHide
Vielleicht lag es auch da im Argen. Aber selbst das geht jetzt ohne Klagen.
Nagut, danke, MfG.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP