أستفسار أنشاء شورت كت - نسخة قابلة للطباعة

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim DIR_FOLDER As String = Application.StartupPath

SORCUT_FOR_ME("Desktop", "\برنامج العاصم للمحاسبة و المستودعات.lnk", DIR_FOLDER & "\AlAsemForAccountingNewVersion.exe" _

            , DIR_FOLDER & "THEMS\ICON\ASEM.ICO", "برنامج العاصم للمحاسبة و المستودعات")

End Sub





Private Sub SORCUT_FOR_ME(ByVal SHORCUT_PLEASE As String, ByVal CreateShortcut1 As String, ByVal TargetPath1 As String _

    , ByVal IconLocation1 As String, ByVal Description1 As String)

        '-----------------------------------------------------------

        Dim wshshell As New IWshRuntimeLibrary.WshShell

        Dim desktop_PTH As String = CType(wshshell.SpecialFolders.Item(SHORCUT_PLEASE), String)

        Dim shortcut_file As IWshRuntimeLibrary.IWshShortcut

        shortcut_file = CType(wshshell.CreateShortcut(desktop_PTH & CreateShortcut1), IWshRuntimeLibrary.IWshShortcut)

        shortcut_file.TargetPath = TargetPath1

        shortcut_file.WindowStyle = 2

        shortcut_file.IconLocation = IconLocation1

        shortcut_file.Description = Description1

        If CreateShortcut1 = "\إلغاء تنصيب برنامج العاصم للمحاسبة و المستودعات.lnk" Then

            shortcut_file.WorkingDirectory = "C:\windows\"

        Else

            shortcut_file.WorkingDirectory = DIR_FOLDER

        End If

        shortcut_file.Save()

        '-----------------------------------------------------------

End Sub

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim DIR_FOLDER As String = Application.StartupPath

SORCUT_FOR_ME("Programs", "\برنامج العاصم للمحاسبة و المستودعات.lnk", DIR_FOLDER & "\AlAsemForAccountingNewVersion.exe" _

            , DIR_FOLDER & "THEMS\ICON\ASEM.ICO", "برنامج العاصم للمحاسبة و المستودعات")

End Sub

كود :

Private Function CreateShortCut(ByVal TargetName As String, ByVal ShortCutPath As String, ByVal ShortCutName As String) As Boolean

    Dim oShell As Object

    Dim oLink As Object

    'you don’t need to import anything in the project reference to create the Shell Object



    Try



        oShell = CreateObject("WScript.Shell")

        oLink = oShell.CreateShortcut(ShortCutPath & "\" & ShortCutName & ".lnk")



        oLink.TargetPath = TargetName

        oLink.WindowStyle = 1

        oLink.Save()

    Catch ex As Exception



    End Try



End Function