منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ازالة اختصارات سطح المكتب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخوتى
لدى كود يقوم  بعمل مجلد على سطح المكتب ثم يقوم بنقل اختصارات سطح المكتب الى هذا المجلد كلها من مجلدات وما داخل المجلدات وانا اريده ان ينقل ملفات ال 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
وعليكم السلام ورحمة الله وبركاته

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

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
(05-10-18, 05:18 PM)elgokr كتب : [ -> ]
وعليكم السلام ورحمة الله وبركاته

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

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

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

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

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

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

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

كود :
*.lnk
(05-10-18, 06:22 PM)asemshahen5 كتب : [ -> ]جرب هذا الامتداد :

كود :
*.lnk

ماشاء الله فعلا أخى هذا ما أريد جزاك الله كل الخير ...
مرحباً اخى 

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

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

تحياتى لك
وتمنياتى لك التوفيق
(07-10-18, 08:36 AM)elgokr كتب : [ -> ]مرحباً اخى 

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

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

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

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