منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عمل اختصار لمجلد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته..
أخوتى أريد كود لعمل اختصار لسطح المكتب لآى مجلد أكتب مساره مثلا فى التكست بوكس..
يعنى مثلا أريد عمل إختصار لهذا المجلد على سطح المكتب

E:\الفيجوال\Selenium
وعليكم السلام...
هذه المواضيع متعلقة بالمطلوب.
تفضل:
http://vb4arb.com/vb/showthread.php?tid=4902
http://vb4arb.com/vb/showthread.php?tid=3983
(07-01-21, 06:22 PM)ابو روضة كتب : [ -> ]
السلام عليكم ورحمة الله وبركاته..
أخوتى أريد كود لعمل اختصار لسطح المكتب لآى مجلد أكتب مساره مثلا فى التكست بوكس..
يعنى مثلا أريد عمل إختصار لهذا المجلد على سطح المكتب

E:\الفيجوال\Selenium

كود :
      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()
جزاكم الله كل الخير أخوتى الكرام....
ايضا يوجد امر من اوامر ms commands وهو mklink

وهذا شرح الامر 

كود :
MKLINK [[/D] | [/H] | [/J]] Link Target

        /D      Creates a directory symbolic link.  Default is a file
                symbolic link.
        /H      Creates a hard link instead of a symbolic link.
        /J      Creates a Directory Junction.
        Link    Specifies the new symbolic link name.
        Target  Specifies the path (relative or absolute) that the new link
                refers to.

اما طريقة الاستخدام فهي كالتالي
تفتح cmd كمسؤول 
تكتب اولا mklink ثم احد الخيارات الثلاثة والتي هي عبارة D /H/ /J/ بعدها الاسم الذي تريد تسمية الاختصار به ويجب ان يحتوي على المسار الكامل بما فيه حرف محرك الاقراص
الذي تود انشاء الاختصار فيه والا فان الاختصار سينشىء في windows\system32 واخيرا مسار المجلد او الملف المطلوب عمل اختصار له
مثال
mklink  /d D:\myShortcutFolder d:\bkup
هنا لدي مجلد اسمه  d:\bkup عملت له اختصار اسمه D:\myShortcutFolder

اخيرا لكي يتم الغاء الاختصار يستخدم الامر RD متبوعا بالمسار الكامل لملف او مجلد الاختصار
مثال
rd D:\myShortcutFolder
(08-01-21, 05:15 AM)معاند الحظ كتب : [ -> ]ايضا يوجد امر من اوامر ms commands وهو mklink

وهذا شرح الامر 

كود :
MKLINK [[/D] | [/H] | [/J]] Link Target

        /D      Creates a directory symbolic link.  Default is a file
                symbolic link.
        /H      Creates a hard link instead of a symbolic link.
        /J      Creates a Directory Junction.
        Link    Specifies the new symbolic link name.
        Target  Specifies the path (relative or absolute) that the new link
                refers to.

اما طريقة الاستخدام فهي كالتالي
تفتح cmd كمسؤول 
تكتب اولا mklink ثم احد الخيارات الثلاثة والتي هي عبارة D /H/ /J/ بعدها الاسم الذي تريد تسمية الاختصار به ويجب ان يحتوي على المسار الكامل بما فيه حرف محرك الاقراص
الذي تود انشاء الاختصار فيه والا فان الاختصار سينشىء في windows\system32 واخيرا مسار المجلد او الملف المطلوب عمل اختصار له
مثال
mklink  /d D:\myShortcutFolder d:\bkup
هنا لدي مجلد اسمه  d:\bkup عملت له اختصار اسمه D:\myShortcutFolder

اخيرا لكي يتم الغاء الاختصار يستخدم الامر RD متبوعا بالمسار الكامل لملف او مجلد الاختصار
مثال
rd D:\myShortcutFolder


تسلم أخى ربنا يكرمك ويبارك فيك...