Dateieigenschaften

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

strPath = "C:\Temp\" ' anpassen - Pfad der Quelldatei strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\") strFile = "xyz.pdf" ' anpassen - Name der Quelldatei Set objWSH = CreateObject("WScript.Shell") strDesktop = objWSH.SpecialFolders("Desktop") Set objLink = objWSH.CreateShortcut(strDesktop & "\" & strFile & ".lnk") With objLink .Targetpath = strPath & strFile .Save End With

Hi MMRH,
schau dir mal diesen Beitrag an: https://www.ms-office-forum.net/forum/showthread.php?t=324927
Für das nur Auslesen (erster Teil deiner Anforderung) siehe folgendes:
Getestet und als Lösung (für Auslesen) akzeptiert.


'Quelle: https://www.ms-office-forum.net/forum/showthread.php?t=324927
Option Explicit
Public Sub Verknuepfungen_auslesen()
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim objLink As Object
Dim xError As Long
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Users\username\Desktop\")
For Each objFile In objFolder.items
If objFile.IsLink Then
On Error Resume Next
Set objLink = objFile.GetLink
xError = Err.Number
On Error GoTo 0
If xError = 0 Then
Call MsgBox(objLink.Path & vbLf & objLink.Target.Path & vbLf & objLink.Description)
Else
Call MsgBox("Zugriff verweigert: " & vbLf & (objLink.Path & vbLf & objLink.Target.Path & vbLf & objLink.Description))
End If
End If
Next
Set objLink = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Sub

Gruß,
Firmus

Hallo ,
probier es hiermit:

Sub b()
Dim fso As Object, WshShell As Object, dia As FileDialog
Dim oLink As Object, oVerknuepfung As Object, sPfadNeu As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set dia = Application.FileDialog(msoFileDialogFolderPicker)
With dia
.AllowMultiSelect = False
.Title = "Ordner mit Verknüpfungen auswählen"
If .Show = -1 Then
For Each oLink In fso.getfolder(.SelectedItems(1)).Files
If LCase(fso.GetExtensionName(oLink)) = "lnk" Then
Set oVerknuepfung = WshShell.CreateShortcut(oLink)
sPfadNeu = Replace(oVerknuepfung.TargetPath, "Haus 2", "Haus 3")
If fso.FileExists(sPfadNeu) Then
oVerknuepfung.TargetPath = sPfadNeu
oVerknuepfung.Save
End If
Debug.Print oVerknuepfung.TargetPath
End If
Next
End If
End With
Set fso = Nothing
Set WshShell = Nothing
End Sub

mfg Anton

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread