VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Arguments von IWshShortcut nicht korrekt	30.01.2025 15:33:25	Thomas
Arguments von IWshShortcut nicht korrekt	30.01.2025 20:02:36	xlKing
Arguments von IWshShortcut nicht korrekt	30.01.2025 21:11:00	Gast71088
Arguments von IWshShortcut nicht korrekt	30.01.2025 21:08:37	Gast83531
Arguments von IWshShortcut nicht korrekt	30.01.2025 21:25:19	Gast37640
Arguments von IWshShortcut nicht korrekt	01.02.2025 12:45:27	Gast57006
Arguments von IWshShortcut nicht korrekt	01.02.2025 12:44:20	Gast71851

Ansicht des Beitrags:

Von:
Gast37640

Datum:
30.01.2025 21:25:19

Rating:

Antwort:

Thema:
Arguments von IWshShortcut nicht korrekt

Hast du mal versucht, die LNK Datei per Shell32 auszulesen?

Private Sub fnShellLinkObjectPathVB()
    Dim objShell As Shell
    Dim objFolder As Folder

    Set objShell = New Shell
    Set objFolder = objShell.NameSpace(ssfPROGRAMS)
        If (Not objFolder Is Nothing) Then
            Dim objFolderItem As FolderItem

            Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
                If (Not objFolderItem Is Nothing) Then
                    Dim objShellLink As ShellLinkObject

                    Set objShellLink = objFolderItem.GetLink
                        If (Not objShellLink Is Nothing) Then
                            Dim szPath As String

                            'Get the path for the ShellLinkObject.
                            szPath = objShellLink.Path
                            Debug.Print szPath

                            'Set the path for the ShellLinkObject.
                            objShellLink.Path = "C:\Program Files\IE\IEXPLORE.EXE"
                        End If
                    Set objShellLink = Nothing
                End If
            Set objFolderItem = Nothing
        End If
    Set objFolder = Nothing
    Set objShell = Nothing
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Arguments von IWshShortcut nicht korrekt	30.01.2025 15:33:25	Thomas
Arguments von IWshShortcut nicht korrekt	30.01.2025 20:02:36	xlKing
Arguments von IWshShortcut nicht korrekt	30.01.2025 21:11:00	Gast71088
Arguments von IWshShortcut nicht korrekt	30.01.2025 21:08:37	Gast83531
Arguments von IWshShortcut nicht korrekt	30.01.2025 21:25:19	Gast37640
Arguments von IWshShortcut nicht korrekt	01.02.2025 12:45:27	Gast57006
Arguments von IWshShortcut nicht korrekt	01.02.2025 12:44:20	Gast71851