تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أستفسار أنشاء شورت كت
#1
السـلام عليكم روحمة الله وبركاته 

عندي أستفسـار عندي برنامج يعمل على جهاز 
محتاج أن البرنامج يبحث عن المجلدات الموجوده في ( Users) وينشأ لكل مجلد أختصار للبرنامج يعني شورت كت في سطح المكتب اللي عنده

ضروري
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاتة 


تحتاج فقط إلى إنشاء إختصار في المجلد Public
C:\Users\Public\Desktop

وسيظهر لجميع المستخدمين
الرد
تم الشكر بواسطة: العيدروس , DOX.1 , DOX.1 , elgokr
#3
تفضل جرب هذا الكود  بعد إضافة المكتبة الموجودة بالمرفقات .

كود :
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


الملفات المرفقة
.zip   Interop.IWshRuntimeLibrary.zip (الحجم : 14.76 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة: DOX.1 , DOX.1 , elgokr
#4
كيف اتمكن من عمل جملة For  
لجلب جميع المجلدات داخل Users
الرد
تم الشكر بواسطة:
#5
تفضل هذا المثال : به ما طلبته يجلب لك أسماء المجلدات الموجودة في مجلد المستخدمين و يعمل لها اختصارا على سطح المكتب .


الملفات المرفقة
.zip   GetDirectory.zip (الحجم : 182.51 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة: ابو روضة , elgokr , elgokr , DOX.1 , DOX.1
#6
يظهر لي خطأ على المكتبه هاذي كيف أنزلها 
IWshRuntimeLibrary
الرد
تم الشكر بواسطة: elgokr
#7
كود :
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


هل من الممكن أحد يشرح لي عمل هذه الفانكشن 
وكيف أقدر أستغلها في أنشاء الأختصار
الرد
تم الشكر بواسطة: elgokr , elgokr
#8
(17-09-18, 11:20 AM)DOX.1 كتب : يظهر لي خطأ على المكتبه هاذي كيف أنزلها 
IWshRuntimeLibrary

موجودة بمرفقات المشاركة رقم 3
الرد
تم الشكر بواسطة: elgokr
#9
مهي موجوده ثبتها من النت وضبط الوضع 
بس الفانكشن الأخيره ممكن ترتيبها لي بحيث أنها تعمل شورت كت 
المثال اللي أرسلته جميل لكن ما عرفت أتعامل معه
الرد
تم الشكر بواسطة: elgokr
#10
مالذي لم تعرفه في التعامل معه نسيت أن أخبرك تستطيع وضع إختصارات في هذه الأماكن باستدال كلمة Destop بها .

      Desktop
     Favorites
       SendTo
   StartMenu
       Startup
    Programs
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أستفسار عن حذف بيانات من DataTabel DOX.1 7 136 12-09-18, 07:25 AM
آخر رد: elgokr
  [سؤال] طريقة أنشاء جدول دراسي dell 7 289 05-05-18, 09:31 PM
آخر رد: dell
  أستفسار عن حدث لداتا قريد فيو طـلال 1 99 13-02-18, 07:06 PM
آخر رد: طالب برمجة
  أستفسار تنسيق نص داخل الكرستال طـلال 4 237 28-12-17, 03:24 PM
آخر رد: silverlight
  العلاقه أستفسار للخبـراء مهم جداً طـلال 10 320 08-11-17, 09:26 PM
آخر رد: طـلال
  [مشروع] أستفسار في تغيير اللون الخلفيه طـلال 3 304 10-08-17, 04:01 AM
آخر رد: أبو نوره
  أستفسار بعض المفاهيم متلخبطه لدي adel27 0 268 23-12-16, 03:13 PM
آخر رد: adel27
  أستفسار حول جلب أسم اليوزر adel27 1 423 11-12-16, 05:45 AM
آخر رد: محمد محمود الغرياني
  أستفسار الطباعه بعد البحث مباشره adel27 0 319 26-10-16, 03:15 PM
آخر رد: adel27
  أستفسار فتح فورم وغلقه adel27 6 739 20-01-16, 08:41 AM
آخر رد: A7medNI

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


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