Frage von Maurice24, 37

Code für Erstellen einer Verknüpfung auf dem Desktop , per Button, mit Visual Basic?

Ich möchte kurz gesagt mit meinen Programm dafür sorgen dass eine Verknüpfung (.exe) auf dem Desktop gespeichert wird und dann geöffnet. wenn jemand Ahnung hat, bitte antworten :) Danke im voraus

Antwort
von safur, 16
Kommentar von Maurice24 ,

Klappt irgendwie nicht ... :(
Bei Button sagt er "Sub fehlt" ...füg ich SUB hinzu sagt er immernoch "Sub fehlt "

Kommentar von safur ,

Kannst du deinen Code posten?

Kommentar von Maurice24 ,

   #hier müsste Private Sub Button10.Click... stehen

Function MakeShortcut(ByVal File As String, ByVal ShortcutFolder As String, ByVal Name As String, ByVal WorkDirectory As String)
Dim WshShell As Object = CreateObject("WScript.Shell")
Dim NewShortcut As Object = WshShell.CreateShortcut(ShortcutFolder & "\" & Name & ".lnk")

NewShortcut.TargetPath = File
NewShortcut.WindowStyle = 1
NewShortcut.IconLocation = File & ",0"
NewShortcut.WorkingDirectory = WorkDirectory
NewShortcut.Save()
End
End Function

#und hier End Sub

Kommentar von safur ,

Ich habe es nun selbst mal ausprobiert. Funktioniert bei mir

Private Sub btnCreate()

    Call CreateIcon("notepad", "c:\windows\system32\", "notepad.exe")

End Sub

Function CreateIcon(AppName$, FinalPath$, ExeName$) As Integer

 'AppName$ is name to display on icon
 'FinalPath$ is path of program folder
 'ExeName$ is file name
 On Error Resume Next

 Dim wshShell As Object
 Set wshShell = CreateObject("WScript.Shell")
 Dim lnkDesktop As Object
 Set lnkDesktop = wshShell.CreateShortcut(wshShell.SpecialFolders("Desktop") & "\" & AppName$ & ".lnk")
 With lnkDesktop
     .Description = AppName$
     .TargetPath = FinalPath$ & ExeName$
     .WorkingDirectory = FinalPath$
     .Save
 End With
 Set lnkDesktop = Nothing
 Set wshShell = Nothing

 If Err Then
     Err = 0
     CreateIcon = False
 Else
     CreateIcon = True
 End If

 End Function

Quelle: https://www.experts-exchange.com/questions/25566104/Using-vb6-how-to-add-a-short...

Kommentar von safur ,

Nur mal so .. sprichst du von VB, VBA oder VB.NET?  :-)

Kommentar von Maurice24 ,

VB , und danke jetz funktioniert es bei mir ...danke dir vielmals

Kommentar von safur ,

Gerne :-)

Keine passende Antwort gefunden?

Fragen Sie die Community