Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
644to648
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eigenschaften *ink

Eigenschaften *ink
01.08.2005 12:53:58
Ingo
Hallo,
ist es per VBA möglich, die Eigenschaften einer Verknüpfung (*.ink),
speziell die Angabe "Ziel" und "Ausführen in" zu verändern ?
In ca. 230 Dateien muss ich in den entsprechenden Feldern den
Laufwerksbuschstaben ändern. Von Hand dann doch 'recht mühsam.
Danke und Gruß
Ingo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eigenschaften *ink
01.08.2005 13:22:42
bst
Hallo Ingo,
versuch's mal mit sowas. Siehe: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsmthcreateshortcut.asp
HTH, Bernd
--
Option Explicit

Sub ChangeLNKs()
   Dim wshShell As Object
   Dim strDesktoppath As String
   Dim objShortcutLnk As Object
   Dim f As String
   
   Set wshShell = CreateObject("WScript.Shell")
   strDesktoppath = wshShell.SpecialFolders("Desktop") & "\TestOrdner\"
   
   f = Dir(strDesktoppath & "*.lnk")
   While f <> ""
      Set objShortcutLnk = wshShell.CreateShortcut(strDesktoppath & f)
      objShortcutLnk.TargetPath = "notepad"
      objShortcutLnk.WorkingDirectory = "d:\"
      objShortcutLnk.Save
      Set objShortcutLnk = Nothing
      f = Dir
   Wend
   Set wshShell = Nothing
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige