السلام عليكم اخوتى
لدى كود يقوم بعمل مجلد على سطح المكتب ثم يقوم بنقل اختصارات سطح المكتب الى هذا المجلد كلها من مجلدات وما داخل المجلدات وانا اريده ان ينقل ملفات ال 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
وعليكم السلام ورحمة الله وبركاته
مرحباً اخى ابو روضة
جمعة مباركة
بخصوص الكود فقط تعال على هذا الجزء
واجعله مثل
او الامتداد المطلوب نقله داخل المجلد
تحياتى لك
وتمنياتى لك التوفيق
(05-10-18, 05:18 PM)elgokr كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
مرحباً اخى ابو روضة
جمعة مباركة
بخصوص الكود فقط تعال على هذا الجزء
واجعله مثل
او الامتداد المطلوب نقله داخل المجلد
تحياتى لك
وتمنياتى لك التوفيق
أهلا بك أخى الجوكر وجمعة طيبة للجميع إن شاء الله...
انا جربت هذا فعلا لكنه بينقل ملفات exe الصحيحة ليست المختصرة.
فأنا أريد نقل الاختصارات كجوجل كروم وفايرفوكس والبرامج التى يتم تصطيبها
والتى تقوم بعمل اختصار لها على سطح المكتب بعد تنصيبها على الجهاز
(05-10-18, 06:22 PM)asemshahen5 كتب : [ -> ]جرب هذا الامتداد :
ماشاء الله فعلا أخى هذا ما أريد جزاك الله كل الخير ...
مرحباً اخى
عندما وضعت
ذكرت انه كمثل اى عليك وضع الصيغة المطلوب التنفيذ عليها الامر
والاخر asemshahen5 ما قصر فى توضيح الامتداد المطلوب التعامل معه
تحياتى لك
وتمنياتى لك التوفيق
(07-10-18, 08:36 AM)elgokr كتب : [ -> ]مرحباً اخى
عندما وضعت
ذكرت انه كمثل اى عليك وضع الصيغة المطلوب التنفيذ عليها الامر
والاخر asemshahen5 ما قصر فى توضيح الامتداد المطلوب التعامل معه
تحياتى لك
وتمنياتى لك التوفيق
انا اسف اخى الجوكر يبدو أننى لم أوضح المطلوب على وجه التحديد
فاكيد كود صغير مثل لا يخفى عليك.