1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : X104 | المشاهدات : 559 | الردود : 3
حالة الموضوع:
مغلق
  1. X104 Developer

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

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

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

    ملف Dll .

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

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


    :)



     
    1 person likes this.
  2. ●¦ Snharib ¦● V • I • P

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

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

    تفضل حبيبي :

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

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

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

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

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

    تدلل انت

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

    Dim desktopPath = My.Computer.FileSystem.SpecialDirectories.Desktop



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


    Dim Ahmad = desktopPath & "\" & "DllName.dll"



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

    IO.File.WriteAllBytes(Ahmad, My.Resources.DllR)



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

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

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

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