---

Hallo,

ich habe auf meiner Festplatte einen Ordner in dem ich mehrere Verknüpfungen zu verschiedenen Dateien gesammelt habe. Über VBA (Inventor) lese ich die Dateinamen der Verknüpfungen aus. Nun möchte ich aber die Zieldatei der Verknüpfung weiterverarbeiten.

Kann mir jemand einen Tipp geben, wie ich da drann komme?

Schöne Grüße

Ulrich

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

---

Hallo Ulrich,

schau mal hier rein.
http://www.vbarchiv.net/archiv/tipp_790.html

Gruß

RENI

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

---

Hallo RENI,

danke für den Tipp. Leider wird diese Funktionalität in VBA anscheinend nicht unterstützt. Also muss ich weiterprobieren.

Schönen Tag

Ulrich

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

---

Hallo Ulrich,

funktioniert doch wunderbar.
Hab´s in Word VBA ausprobiert.

Ändere mal List1.AddItem -> Debug.Print

und die Shelllnk.tlp gibt es unter http://www.vbarchiv.de/download/dll/SHELLLNK.TLB
Den Verweis darauf setzen nicht vergessen!

Wenn es jetzt immer noch hängt, dann gib mal eine genaue Fehlerbeschreibung!

Grüssle TP

------------------

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

---

FehlermeldungLink-Auslesen.JPG

Hallo TP,

ich hab den Code jetzt auch mal ins VBA reingespielt, dort funktionierts.
Verwende ich den Code in Autodesk Inventor 10 ffunktionierts nicht. Die Fehlermeldung habe ich angehängt.

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

---

FehlermeldungLink-Auslesen.JPG

Hier nochmal ein Ausschnitt des Screenshots, damit die Fehlermeldung auch lesbar ist.

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

---

Hallo Ulrich,

Sorry ich kann deinen Fehler nicht reproduzieren.
Hab´s jetzt unter Mechanical Desktop 2006 probiert - dort funktioniert es auch.
Wenn ich Inventor mal installiert bekomme, dann werd ich es ausprobiere.
Im Moment kann ich Dir aber nicht weiterhelfen.

Grüssle TP

------------------

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

---

Hallo TP,

danke für Deinen Versuch. Vieleicht hast Du ja mal die Möglichkeit es im Inventor auch noch zu probieren.

Schöne Grüße

Ulrich

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

---

Hallo,

also Du hattest Recht, es funktioniert so wirklich nicht!

Hab da aber mal etwas zusammengebastelt, dass auch unter Inventor funktioniert!

Voraussetzung sind Verweise auf:
Shell32.dll -> "Microsoft ShellControls und Automation"
Shelllnk.tlb -> "VB5 - IShellLinkA Interface(ANSI)"

Code:

---

Sub teer()

    Dim Shell32 As New Shell
   
    Dim objFolder2 As Folder2
    Set objFolder2 = Shell32.NameSpace("C:\Dokumente und Einstellungen\Administrator\Startmenü\Programme\Zubehör\")
   
    Dim fi As FolderItem
    Set fi = objFolder2.ParseName("Editor.lnk")
   
    Dim slo As ShellLinkObject
   
    If fi.IsLink = True Then
     
            Set slo = fi.GetLink
           
            Debug.Print slo.Path
            Debug.Print slo.Arguments
            Debug.Print slo.Description
            Debug.Print slo.Hotkey
            Debug.Print slo.ShowCommand
            Debug.Print slo.WorkingDirectory
             
    End If

End Sub

---

... bitte gib eine Rückmeldung, ob es funktioniert.

Grüssle TP

------------------

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

---

ES FUNKTIONIERT!!!!

Vielen Dank.

Dafür gibt's natürlich jede Menge Units.

Schöne Grüße

Ulrich

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