انشاء اختصار للبرنامج على سطح المكتب

[alsihran]

السلام عليكم ورحمة الله وبركاتة

بالمرفق مثال للاستاذ @jjafferr

لعمل اختصار على سطح المكتب 

المثال شغال تمام 

لكن لمى اجي اغير الايقونة وحط ايقونة ثانية مع تغير اسم الاختصار الى اللغة العربية من شان يصير واضح للمستخدم 

مثلا اسم البرنامج prog   اريد ان يظهر اسم الاختصار بسطح المكتب بأسم  البرنامج 

ينشئ الاختصار لكن ما تظهر الايقونة 

لو أمكن شرح لو تفضلتم 

انشاء اختصار على سطح المكتب.rar

[jjafferr]

وعليكم السلام 🙂

 

ما كنت ادري اني عملت هذا المثال 😁

 

بحثت ونزلت ايقونة هذا الدبدوب

.

ووضعتها في نفس مجلد البرنامج (انا كسلان ، ما اردت ان اغير مسار الايقونه في الكود 🙂 ) :

.

وعليه ، غيّرت السطرين في الكود ، علشان:

1. اشير الى اسم الايقونه الجديدة ،
2. والاسم اللي اريده يظهر على سطح المكتب 

.

وهذا كود الوحدة النمطية بالكامل :

Function Make_Desktop_Shortcut()

'With CreateObject("WScript.Shell")
'  With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk")
'    .TargetPath = "C:\Stuff\Test.mdb"
'    .WindowStyle = 1
'    .Hotkey = ""
'    .IconLocation = "C:\Test\Test.ico, 0"
'    .Description = "Test Icon Substitution"
'    .WorkingDirectory = "C:\Stuff\"
'      .Save
'  End With
'End With

    DB_Name = Application.CurrentProject.Name
    DB_Path = Application.CurrentProject.Path
    'icon_Name = "Arc5.ico"
    icon_Name = "Gingerbread-Bear.ico"
    icon_Path = Application.CurrentProject.Path
    icon_Name_Path = icon_Path & "\" & icon_Name
        
With CreateObject("WScript.Shell")
  'With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\دبدوب.lnk")
    .TargetPath = DB_Path & "\" & DB_Name
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = icon_Name_Path
    .Description = "Done by jj"
    .WorkingDirectory = DB_Path & "\"
      .Save
  End With
End With

End Function

.

وعلى سطح المكتب تشوف تجاربي :

 

جعفر

[alsihran]

36 دقائق مضت, jjafferr said:

ما كنت ادري اني عملت هذا المثال

😵

ممتاز 

طيب استاذنا لمى تكون الايقونة داخل مجلد ف نفس مجلد البرنامج اي سطر نعدل عليه 

تم تعديل ديسمبر 5, 2020 بواسطه alsihran

[jjafferr]

59 دقائق مضت, jjafferr said:

وعليه ، غيّرت السطرين في الكود ، علشان:

1. اشير الى اسم الايقونه الجديدة ،
2. والاسم اللي اريده يظهر على سطح المكتب 

 

🙂

[alsihran]

15 دقائق مضت, jjafferr said:

🙂

غيرت هذا السطر عشان اشير للمجلد اللي فيه الايقونة لكن ماضبط

  icon_Name_Path = icon_Path & "\" & icon_Name & "\" & ico

 

[ابو جودي]

2 دقائق مضت, alsihran said:

غيرت هذا السطر عشان اشير للمجلد اللي فيه الايقونة لكن ماضبط

  icon_Name_Path = icon_Path & "\" & icon_Name & "\" & ico

 

خليه كده

  icon_Name_Path = icon_Path & "\" & icon_Name & ".ico"

 

تم تعديل ديسمبر 5, 2020 بواسطه ابا جودى

[alsihran]

2 دقائق مضت, ابا جودى said:

icon_Name_Path = icon_Path & "\" & icon_Name & ".ico"

نفس الشي يتم انشاء الاختصار لكن بدون ايقونة 

[ابو جودي]

اهاااااااااااااا  فهمت

انت بدك تعمل ايقونه ع الديسك توب اختصار ؟؟

[jjafferr]

ليش غيرت الكود ؟

انت محتاج تغير فقط السطرين !!

 

شو اسم ملف الايقونه الجديدة (اعمل صورة من الشاشة لوسمحت) ،

وشو الاسم اللي تريده يظهر على سطح المكتب ؟

[ابو جودي]

راجع الموضوعان فيهما كل ما تريد ان شاء الله 

 

 

[alsihran]

6 دقائق مضت, jjafferr said:

شو اسم ملف الايقونه الجديدة (اعمل صورة من الشاشة لوسمحت) ،

هذا اسم المجلد اللي موجود فيه الايقونة وهو في نفس المجلد اللي فيه البرنامج

8 دقائق مضت, jjafferr said:

وشو الاسم اللي تريده يظهر على سطح المكتب ؟

مثلا 

البرنامج 

[ابو جودي]

  icon_Name_Path = icon_Path &  "\ico\" & icon_Name 

 

تم تعديل ديسمبر 5, 2020 بواسطه ابا جودى

[jjafferr]

اريد اعرف اسم ملف الايقونه ، ويمكن انك في اعدادات المجلد ، ما جعلت اسم صيغة الملف تظهر ،

رجاء خليها تظهر هكذا :

 

.

وبعدين صور لي اسم الملف لما تظهر صيغته

[alsihran]

3 دقائق مضت, ابا جودى said:

icon_Name_Path = icon_Path & "\ico\" & icon_Name & ".ico"

 icon_Name_Path = icon_Path &  "\ico\" & icon_Name

 icon_Name_Path = icon_Path &  "\ico\" & icon_Name

الصحيح يكون كذا 

مشكورين اساتذتنا