عمل اختصار لمجلد - نسخة قابلة للطباعة

عمل اختصار لمجلد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عمل اختصار لمجلد (/showthread.php?tid=37408)

عمل اختصار لمجلد - ابو روضة - 07-01-21

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

أخوتى أريد كود لعمل اختصار لسطح المكتب لآى مجلد أكتب مساره مثلا فى التكست بوكس..

يعنى مثلا أريد عمل إختصار لهذا المجلد على سطح المكتب

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

RE: عمل اختصار لمجلد - اسامه الهرماوي - 07-01-21

وعليكم السلام...
هذه المواضيع متعلقة بالمطلوب.
تفضل:
http://vb4arb.com/vb/showthread.php?tid=4902
http://vb4arb.com/vb/showthread.php?tid=3983

RE: عمل اختصار لمجلد - اليوم السابع - 07-01-21

(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()

RE: عمل اختصار لمجلد - ابو روضة - 07-01-21

جزاكم الله كل الخير أخوتى الكرام....

RE: عمل اختصار لمجلد - معاند الحظ - 08-01-21

ايضا يوجد امر من اوامر 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

RE: عمل اختصار لمجلد - ابو روضة - 08-01-21

(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

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