Link handling

Forumthread: Link handling
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Link handling

Link handling

21.06.2005 12:38:06

Pascal

Guten Tag alle zusammen,
ich habe folgendes Problem. Ich muss für die Firma ein VBA-Makro schreiben welches multifunktionell verwendbar ist. Nun klappt noch eine Sache nicht. Ich muss für ein File automatisch einen link in einem Directory erstellen. Wie stell ich das nun am besten an?
gibt es eine Variante mit welcher man links erstellen kann?
Was mir durch den kopf gegangen ist, ist die möglichkeit einen dummylink zu erstellen, welcher im rootfolder liegt. Nun kopiere ich den per filecopy an den gewünschten ort. Danach stehe ich wieder an, wenn ich das target des Links ändern will.
Gibt es da eine Möglichkeit?
MfG Pascal

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Link handling

21.06.2005 14:31:25

bst

AW: Link handling

21.06.2005 14:31:25

bst

Hi Pascal,
meinst Du sowas ?
Option Explicit

Sub CreateShortcut()
    Dim wshShell As Object
    Dim strDesktoppath As String
    Dim objShortcutLnk As Object
    Dim objShortcutUrl As Object

    Set wshShell = CreateObject("WScript.Shell")
    strDesktoppath = wshShell.SpecialFolders("Desktop")

    Set objShortcutLnk = wshShell.CreateShortcut(strDesktoppath & "\notepad.lnk")
    objShortcutLnk.TargetPath = "notepad"
    objShortcutLnk.Save

    Set objShortcutUrl = wshShell.CreateShortcut(strDesktoppath & "\devguru.url")
    objShortcutUrl.TargetPath = "http://www.devguru.com"
    objShortcutUrl.Save

    Set wshShell = Nothing
End Sub
cu, Bernd