Hallo, ich habe ein Problem, und ich weiß echt nicht mehr weiter...
In einer Funktion (zum erstellen eines Linkes steht folgendes:)
Doch jeweils der Shell32 Teil ist 'nicht definiert'. - also falsch
Hier die gesamte Funktion:
LG, Johnny
:::
EDIT: Wer eine einfachere Lösung kennt, eine Verknüpfung zu erstellen; bitte posten
EDIT2: Ich habe Vista Ultimate 64-Bit -> Hat das etwas damit zu tun?
In einer Funktion (zum erstellen eines Linkes steht folgendes:)
Doch jeweils der Shell32 Teil ist 'nicht definiert'. - also falsch
Hier die gesamte Funktion:
VB.NET-Quellcode
- Public Function CreateShortcut(ByVal sLinkFile As String, _
- ByVal sTargetFile As String, _
- Optional ByVal sDescription As String = "", _
- Optional ByVal sWorkingDir As String = "") As Boolean
- Try
- Dim oShell As New Shell32.Shell
- Dim oFolder As Shell32.Folder
- Dim oLink As Shell32.ShellLinkObject
- ' Ordner und Dateinamen extrahieren
- Dim sPath As String = sLinkFile.Substring(0, sLinkFile.LastIndexOf("\"))
- Dim sFile As String = sLinkFile.Substring(sLinkFile.LastIndexOf("\") + 1)
- ' Wichtig! Link-Datei erstellen (0 Bytes)
- Dim F As Short = FreeFile()
- FileOpen(F, sLinkFile, OpenMode.Output)
- FileClose(F)
- oFolder = oShell.NameSpace(sPath)
- oLink = oFolder.Items.Item(sFile).GetLink
- ' Eigenschaften der Verknüpfung
- With oLink
- If sDescription.Length > 0 Then .Description = sDescription
- If sWorkingDir.Length > 0 Then .WorkingDirectory = sWorkingDir
- .Path = sTargetFile
- ' Verknüpfung speichern
- .Save()
- End With
- ' Objekte zerstören
- oLink = Nothing
- oFolder = Nothing
- oShell = Nothing
- Return True
- Catch ex As Exception
- ' Fehler! ggf. Link-Datei löschen, falls bereit erstellt
- If System.IO.File.Exists(sLinkFile) Then Kill(sLinkFile)
- Return False
- End Try
- End Function
LG, Johnny
:::
EDIT: Wer eine einfachere Lösung kennt, eine Verknüpfung zu erstellen; bitte posten
EDIT2: Ich habe Vista Ultimate 64-Bit -> Hat das etwas damit zu tun?