[ تمت الإجابة ]انشاء اختصار لمجلد على سطح المكتب

استخدم الفئة الموجودة فى هذه المشاركة

/index.php?showtopic=205408&view=findpost&p=1019776

الله يعطيك العافية GHOST .

هذا الموضوع أنا اطلعت عليه قبل ما اطرح سؤالي. واطلعت على هذه الفئة لكن مع الأسف ما فهمت استخدامها.

فاذا تعطيني مثال أبسط أكون شاكر ومقدر لك.

السلام عليكم

الاخ GHOST2010

الا يوجد صيغه مكافئه لهذه في ال Basic-----لقد وجدتها انظر تعليقي الثاني

هذه في ال سي شارب

string LNKF = System.Environment.GetFolderPath(System.Environment.SpecialFolder.DesktopDirectory)+ "\\" + Application.ProductName + ".lnk";

WshShell wsho = new WshShell();

IWshShortcut sc = (IWshShortcut)wsho.CreateShortcut(LNKF);

sc.TargetPath = Application.ExecutablePath;

sc.Description = Application.ProductName + " ausführen";

sc.WorkingDirectory = Application.ProductName;

sc.Save();

class.cs

اخي هاوي البرمجه انظر هنا

هذا الرابط في ال Basic

http://www.vbforums....ad.php?t=586974

يجب ان تكمل الطريق وحدك فانا لست متخصصا في ال Basic فلقد طلقتها قبل 20 عاما عندما كانت GW-BASIC

اخوكم

مشكور أخ albalawi1 وبارك الله فيك

هذا هو فعلاً ما اريد.

التعامل مع الفئة سهل جداً ,, فقط قم بعمل نسخة جديدة من الكائن Shortcut وحدد له الخصائص المطلوبة ثم قم باستدعاء الإجراء Create

        Dim sh As New Shortcut
        sh.TargetPath = "C:\windows"
        sh.ShortcutPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\windows.lnk"
        sh.WindowsStyle = FormWindowState.Normal
        sh.Comment = "A Shortcut for windows directory."
        sh.Create()

جزاك الله خيرا اخ GHOST2010

GHOST2010 كتب:

التعامل مع الفئة سهل جداً ,, فقط قم بعمل نسخة جديدة من الكائن Shortcut وحدد له الخصائص المطلوبة ثم قم باستدعاء الإجراء Create

        Dim sh As New Shortcut
        sh.TargetPath = "C:\windows"
        sh.ShortcutPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\windows.lnk"
        sh.WindowsStyle = FormWindowState.Normal
        sh.Comment = "A Shortcut for windows directory."
        sh.Create()

يا أخي تمت الاجابة على سؤالي ، ولكم جزيل الشكر.

وجدت الاجابة في مشاركة الاخ albalawi1 .

ولكن أحب أن أعرف طريقة استخدام هذه الفئة.

وضعت الفئة في مودل واستدعيتها ولكن لم تنجح الطريقة.

أرفقت لك المثال للتعديل عليه.

والمعذرة لو اتعبناك معنا.

Make Shortcut.rar

لايوجد خطأ بإذن الله

فقط هناك تعارض بين إسم الفئة وإسم Enum فى مجال الأسماء System.Windows.Forms لذلك غير سطر الإعلان عن المتغير إلى

        Dim sh As New Shell.Shortcut

بارك الله فيك. والله ما أدري كيف أشكرك. لكن ( أسأل الله أن يغفر لك ويوفقك الى كل عمل صالح )