Hallo,
Ich lese hier schon eine Weile mit und habe mich nun Registriert weil ich ein Problem habe bei dem mir von euch sicher wer helfen kann.
Und zwar habe ich ein kleines Problem mir Installer Verknüpfungen wie sie zb. Office erstellt.
Mit diesem Code lese ich den Pfad der Verknüpfungen aus. Größtenteils klappt das auch.
Doch einige Office Verknüpfungen liefern keinen Pfad. Giebt es hierzu eine Alternativie?
Bitte um eure Hilfe.
Grüße Georg
Ich lese hier schon eine Weile mit und habe mich nun Registriert weil ich ein Problem habe bei dem mir von euch sicher wer helfen kann.
Und zwar habe ich ein kleines Problem mir Installer Verknüpfungen wie sie zb. Office erstellt.
Mit diesem Code lese ich den Pfad der Verknüpfungen aus. Größtenteils klappt das auch.
Code:
Public Function getShortcutTarget(ByVal file$) As String Dim product As New StringBuilder(MaxGuidLength + 1) Dim feature As New StringBuilder(MaxFeatureLength + 1) Dim component As New StringBuilder(MaxGuidLength + 1) MsiGetShortcutTarget(file, product, feature, component) Dim pathLength As Integer = MaxPathLength Dim path As New StringBuilder(pathLength) Dim installState As InstallState = MsiGetComponentPath(product.ToString(), component.ToString(), path, pathLength) If installState = installState.Local Then Return path.ToString() Else 'Form1.TextBox1.Text = (product.ToString) End If End Function
Bitte um eure Hilfe.
Grüße Georg
Comment