تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ازاي اعمل shortcut file
#1
السلام عليكم عندي هذا الملف في المسار ده 
C:\Program Files\king\Debug\King Master 4.1.0.exe
ازاي اعمل shortcut للملف ده King Master 4.1.0.exe علي الديسك توب او سطح المكتب
الرد
تم الشكر بواسطة:
#2
هل يلبي الرابط ماتريد؟
الرد
تم الشكر بواسطة: ابو روضة , اليوم السابع
#3
(12-11-20, 02:58 PM)سعود كتب : هل يلبي الرابط ماتريد؟

الله يبارك لك اخي سعود
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#4
(12-11-20, 02:58 PM)سعود كتب : هل يلبي الرابط ماتريد؟

بس هو بيعمل الشورت كات في نفس المجلد مش علي سطح المكتب

(12-11-20, 08:15 PM)اليوم السابع كتب :
(12-11-20, 02:58 PM)سعود كتب : هل يلبي الرابط ماتريد؟

بس هو بيعمل الشورت كات في نفس المجلد مش علي سطح المكتب

هذا هو الكود بفك ضغط ملف بجانب المشروع ومن ثم بأخذ ملف من المجلد شورت كات علي الديسك توب ولكن بيضع الملف داخل نفس المجلد وليس سطح المكتب 
كود :
Dim archive As IArchive = ArchiveFactory.Open("Debug.rar")
       For Each entry In archive.Entries
           If Not entry.IsDirectory Then
               Console.WriteLine(entry.Key)
               entry.WriteToDirectory("C:\Program Files\king1", New ExtractionOptions With
                             {.ExtractFullPath = True, .Overwrite = True})
           End If
       Next
       Dim path As String = "C:\Program Files\king1\Debug\King Master 4.1.0.exe"
       Dim thing As New WshShell
       Dim shortcut As IWshShortcut
       If IO.File.Exists(path) = False And IO.Directory.Exists(path) = False Then
           MsgBox("path is not correct")
           Exit Sub
       End If
       shortcut = CType(thing.CreateShortcut(path & ".lnk"), IWshShortcut)
       shortcut.TargetPath = path
       shortcut.Save()
الرد
تم الشكر بواسطة:
#5
كود :
Dim DesktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim lnkPath As string = DesktopPath & "Test.lnk"

       Dim thing As New WshShell

       Dim shortcut As IWshShortcut
shortcut CType(thing.CreateShortcut(lnkPath), IWshShortcut)
shortcut.TargetPath = path
shortcut.Save()
الرد
تم الشكر بواسطة: اليوم السابع
#6
(13-11-20, 02:30 PM)Anas Mahmoud كتب :
كود :
Dim DesktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim lnkPath As string = DesktopPath & "Test.lnk"

       Dim thing As New WshShell

       Dim shortcut As IWshShortcut
shortcut CType(thing.CreateShortcut(lnkPath), IWshShortcut)
shortcut.TargetPath = path
shortcut.Save()

شكرا اخي ولكن لم يحدث شئ ما زال لا يعمل شورت كات
الرد
تم الشكر بواسطة:
#7
(13-11-20, 02:30 PM)Anas Mahmoud كتب :
كود :
       Dim path As String = "C:\Program Files\king1\Debug\King Master 4.1.0.exe"
Dim DesktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim lnkPath As string = DesktopPath & "\Test.lnk"

       Dim thing As New WshShell

       Dim shortcut As IWshShortcut
shortcut CType(thing.CreateShortcut(lnkPath), IWshShortcut)
shortcut.TargetPath = path
shortcut.Save()
الرد
تم الشكر بواسطة: اليوم السابع , Anas Mahmoud , Anas Mahmoud
#8
(14-11-20, 02:06 AM)got كتب :
(13-11-20, 02:30 PM)Anas Mahmoud كتب :
كود :
       Dim path As String = "C:\Program Files\king1\Debug\King Master 4.1.0.exe"
Dim DesktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim lnkPath As string = DesktopPath & "\Test.lnk"

       Dim thing As New WshShell

       Dim shortcut As IWshShortcut
shortcut CType(thing.CreateShortcut(lnkPath), IWshShortcut)
shortcut.TargetPath = path
shortcut.Save()

الله ينور عليك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لو عايز اعمل اعلانات لمنتج معين Lathe1 1 260 26-05-21, 01:30 AM
آخر رد: Lathe1
  [سؤال] ازاي اعرف العدد الصحيح حسن الجلب 1 207 13-04-21, 06:08 AM
آخر رد: messry
  [سؤال] ازاي اقدر اربط الفجوال بيسك بالاجهزه الخارجية رضوان الجماعي 1 405 24-03-21, 09:09 PM
آخر رد: أبو عبدالله الحلواني
  [سؤال] سؤال طريق اعمل بحث و اضافة و تعديل دخل قاعد البيانات فى نفس الوقت alims 1 455 15-03-21, 07:17 AM
آخر رد: alims
  عاوز اعمل رساله لمستخدمي البرنامج بتاعي عبر الانترنت كيف اضيف حاجه شكل دي ف البرنامج Hosam Ashraf Elwakel 1 791 10-02-21, 01:09 AM
آخر رد: أبو عبدالله الحلواني
  [سؤال] ازاي اضيف البوم صور داخل قاعدة بيانات الاكسس حسن الجلب 1 487 05-12-20, 01:39 AM
آخر رد: سعود
  ازاي اعمل تثبيت تلقائي اليوم السابع 0 329 14-11-20, 02:53 AM
آخر رد: اليوم السابع
  يا جماعة الخير انا عوز اعرف ازاي اشغل اليوزر اجنت ع mpv ahmedmohammed 1 563 02-09-20, 09:43 AM
آخر رد: ahmedmohammed
  [سؤال] انا لوانا ضفت coulmns ل dt أو datagridviw ازاي اغير نوع الداتا بتاعه الصف منه 3 591 27-08-20, 10:09 PM
آخر رد: asemshahen5
  عاوز اعمل Timer يشوف اللي معمول عليه صح ويعملو enable تلقائي Hosam Ashraf Elwakel 0 488 09-08-20, 07:41 PM
آخر رد: Hosam Ashraf Elwakel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم