ازالة اختصارات سطح المكتب - نسخة قابلة للطباعة

ازالة اختصارات سطح المكتب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ازالة اختصارات سطح المكتب (/showthread.php?tid=26798)

ازالة اختصارات سطح المكتب - ابو روضة - 05-10-18

السلام عليكم اخوتى

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

RE: ازالة اختصارات سطح المكتب - elgokr - 05-10-18

وعليكم السلام ورحمة الله وبركاته

مرحباً اخى ابو روضة

جمعة مباركة

بخصوص الكود فقط تعال على هذا الجزء

PHP كود :

"*.*" 

واجعله مثل

PHP كود :

"*.exe" 

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

تحياتى لك

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

RE: ازالة اختصارات سطح المكتب - ابو روضة - 05-10-18

(05-10-18, 05:18 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

مرحباً اخى ابو روضة

جمعة مباركة

بخصوص الكود فقط تعال على هذا الجزء

PHP كود :

"*.*"

واجعله مثل

PHP كود :

"*.exe"

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

تحياتى لك

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

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

انا جربت هذا فعلا لكنه بينقل ملفات exe الصحيحة ليست المختصرة.

فأنا أريد نقل الاختصارات كجوجل كروم وفايرفوكس والبرامج التى يتم تصطيبها

والتى تقوم بعمل اختصار لها على سطح المكتب بعد تنصيبها على الجهاز

RE: ازالة اختصارات سطح المكتب - asemshahen5 - 05-10-18

جرب هذا الامتداد :

كود :

*.lnk

RE: ازالة اختصارات سطح المكتب - ابو روضة - 05-10-18

(05-10-18, 06:22 PM)asemshahen5 كتب : جرب هذا الامتداد :

كود :

*.lnk

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

RE: ازالة اختصارات سطح المكتب - elgokr - 07-10-18

مرحباً اخى

عندما وضعت

كود :

"*.exe"

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

والاخر asemshahen5 ما قصر فى توضيح الامتداد المطلوب التعامل معه

تحياتى لك

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

RE: ازالة اختصارات سطح المكتب - ابو روضة - 07-10-18

(07-10-18, 08:36 AM)elgokr كتب : مرحباً اخى

عندما وضعت

كود :

"*.exe"

ذكرت انه كمثل اى عليك وضع الصيغة المطلوب التنفيذ عليها الامر

والاخر asemshahen5 ما قصر فى توضيح الامتداد المطلوب التعامل معه

تحياتى لك

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

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

فاكيد كود صغير مثل لا يخفى عليك.