Feedback

Make Shortcut

VB - Marvin Peter September 5, 2010
0 Ratings 0/5 
    Private 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"")

Alte URL: /snippet/make-shortcut/1445