تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ازالة اختصارات سطح المكتب
#1
السلام عليكم اخوتى
لدى كود يقوم  بعمل مجلد على سطح المكتب ثم يقوم بنقل اختصارات سطح المكتب الى هذا المجلد كلها من مجلدات وما داخل المجلدات وانا اريده ان ينقل ملفات ال exe فقط الموجودة على سطح المكتب ويترك الباقى.

كود :
   FolderBrowserDialog1.ShowDialog()
       Directory.CreateDirectory(FolderBrowserDialog1.SelectedPath & "\اختصارات سطح المكتب")
       Dim fileList = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop,
      Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.*")
       On Error Resume Next
       For Each foundFile In fileList
           My.Computer.FileSystem.MoveFile(foundFile,
              FolderBrowserDialog1.SelectedPath & "\اختصارات سطح المكتب\" & My.Computer.FileSystem.GetFileInfo(foundFile).Name)
       Next
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

مرحباً اخى ابو روضة
جمعة مباركة

بخصوص الكود فقط تعال على هذا الجزء
PHP كود :
"*.*" 

واجعله مثل
PHP كود :
"*.exe" 

او الامتداد المطلوب نقله داخل المجلد

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: alsouf , ابو روضة , ابو روضة , rnmr
#3
(05-10-18, 05:18 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

مرحباً اخى ابو روضة
جمعة مباركة

بخصوص الكود فقط تعال على هذا الجزء
PHP كود :
"*.*" 

واجعله مثل
PHP كود :
"*.exe" 

او الامتداد المطلوب نقله داخل المجلد

تحياتى لك
وتمنياتى لك التوفيق

أهلا بك أخى الجوكر وجمعة طيبة للجميع إن شاء الله...

انا جربت هذا فعلا  لكنه بينقل ملفات exe  الصحيحة ليست المختصرة.
فأنا أريد نقل الاختصارات كجوجل كروم وفايرفوكس والبرامج التى يتم تصطيبها
 والتى تقوم بعمل اختصار لها على سطح المكتب بعد تنصيبها على الجهاز
الرد }}}
تم الشكر بواسطة: elgokr
#4
جرب هذا الامتداد :

كود :
*.lnk
الرد }}}
تم الشكر بواسطة: ابو روضة , rnmr , elgokr
#5
(05-10-18, 06:22 PM)asemshahen5 كتب : جرب هذا الامتداد :

كود :
*.lnk

ماشاء الله فعلا أخى هذا ما أريد جزاك الله كل الخير ...
الرد }}}
تم الشكر بواسطة: elgokr
#6
مرحباً اخى 

عندما وضعت 
كود :
"*.exe"

ذكرت انه كمثل اى عليك وضع الصيغة المطلوب التنفيذ عليها الامر  Big Grin
والاخر asemshahen5 ما قصر فى توضيح الامتداد المطلوب التعامل معه

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#7
(07-10-18, 08:36 AM)elgokr كتب : مرحباً اخى 

عندما وضعت 
كود :
"*.exe"

ذكرت انه كمثل اى عليك وضع الصيغة المطلوب التنفيذ عليها الامر  Big Grin
والاخر asemshahen5 ما قصر فى توضيح الامتداد المطلوب التعامل معه

تحياتى لك
وتمنياتى لك التوفيق

انا اسف اخى الجوكر يبدو أننى لم أوضح المطلوب على وجه التحديد
فاكيد كود صغير مثل لا يخفى عليك.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  اريد مساعدة في ازالة جزء من النص لان لا يوجد لدي خبرة كافية للتعامل مع دوال النصوص Meroo1809 2 521 05-01-23, 07:38 PM
آخر رد: Meroo1809
  اختصارات البرمجه حماده ممدوح البحيرى 7 911 04-12-22, 01:21 AM
آخر رد: أبو خالد الشكري
  ازالة كلمة بين الاقواس في Richtextbox Basil Abdallah 4 783 19-09-22, 04:48 PM
آخر رد: Basil Abdallah
  ماهي طريقة عمل download لصورة من قاعدة البيانات sql إلى سطح المكتب ؟ جيولوجي مبتدئ 2 833 19-08-22, 10:53 PM
آخر رد: جيولوجي مبتدئ
  كيف يمكنني نسخ ملف الي سطح المكتب لجميع المستخدمين والتأكد من وجوده ام لا؟ dametucorazon 2 972 04-06-21, 03:23 AM
آخر رد: dametucorazon
  اريد مساعدة في ازالة البرنامج وتثبيته crazykinko 2 1,401 02-01-21, 08:08 PM
آخر رد: crazykinko
  اريد ربط تطبيق اندرويد بتطبيق سطح المكتب عن طريق مودم wifi بدون نت alfaiz678 2 1,418 13-12-20, 02:22 PM
آخر رد: alfaiz678
  ازالة الصفارة الخاصه textbox معاذ_ابراهيم 9 2,828 17-04-20, 06:21 PM
آخر رد: ابراهيم ايبو
Heart كيف يمكنني أرسال pdf إلى سطح المكتب DOX.1 6 1,673 03-12-19, 03:19 AM
آخر رد: DOX.1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم