حالة الموضوع:
مغلق
  1. X104

    X104 Developer

    الأنتساب:
    ‏29 يناير 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    السلام عليكم

    اريدً كود لـوضع ملف على الدسكتوبْ /

    مثلاُ عندي مشروعً , ويوجد في الريسورسً .

    ملف Dll .

    عند الظغط على زر بوتون مثلا Start

    رح يضهر الملف هذا الي في الريسورس رح ينزل في الجهاز على الدسكتوب


    :)



     
    1 person likes this.
  2. ●¦ Snharib ¦●

    ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    113
    الإقامة:
    || Iraq ||
    رد: طلب كود اضافة ملف في الدسكتوب

    عليكم السلامً

    تفضل حبيبي :

    كود:
    Dim desktopPath = My.Computer.FileSystem.SpecialDirectories.Desktop
           Dim Ahmad = desktopPath & "\" & "DllName.dll"
           IO.File.WriteAllBytes(Ahmad, My.Resources.DllR)
           MsgBox("Done", MsgBoxStyle.Information)
    
    ^:"
     
    1 person likes this.
  3. X104

    X104 Developer

    الأنتساب:
    ‏29 يناير 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    رد: طلب كود اضافة ملف في الدسكتوب

    تسلمً يالوحشً ..

    بس ممكن شرح للوكود
     
  4. ●¦ Snharib ¦●

    ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    113
    الإقامة:
    || Iraq ||
    رد: طلب كود اضافة ملف في الدسكتوب

    تدلل انت

    -----------------

    [NOTE]Dim desktopPath = My.Computer.FileSystem.SpecialDirectories.Desktop[/NOTE]

    هذا متغير فيه مسار سطح المكتب

    [INFO]
    Dim Ahmad = desktopPath & "\" & "DllName.dll"[/INFO]

    هذا متغير فيه مسار الملف واسمه [ DllName.dll ] ((مسار سطح المكتب واسم الملف))

    [WARNING]IO.File.WriteAllBytes(Ahmad, My.Resources.DllR)[/WARNING]

    وهذا كود كتابة الملف على المسار الذي حددناه ((سطح المكتب))

    اما اذا اردت تغير الملف الى ExE مثلا فقط غير DllName.dll الى Name.exe
    وكذلك بالنسبة لملفات rar

    ( يغلقً لأختيارً افضلً أجابةً)
     
    1 person likes this.
حالة الموضوع:
مغلق

مشاركة هذه الصفحة