تقييم الموضوع :
  • 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 ما قصر فى توضيح الامتداد المطلوب التعامل معه

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مسار سطح المكتب bidaya 17 1,389 11-11-18, 02:24 PM
آخر رد: elgokr
  ازالة الفراغات من textbox nabil.1710 8 342 25-07-18, 10:00 AM
آخر رد: elgokr
  [سؤال] كود مسار سطح المكتب وحفظ ملف ورد أبوسعود 2 200 24-06-18, 11:04 PM
آخر رد: أبوسعود
  احتاج مساعدتكم لتغيير رقم المكتب mram3242 3 202 22-05-18, 03:39 AM
آخر رد: elgokr
  ازالة internet explorer cookies Mohamed20 0 122 23-03-18, 03:30 AM
آخر رد: Mohamed20
Photo [سؤال] كيفية وضع اختصارات االازرار داخل الفورم لتنقل بين Buttons ؟ Iman Mohamed Omran 6 587 22-03-18, 08:14 PM
آخر رد: Iman Mohamed Omran
  استفسار بخصوص اختصارات الاصناف ملهمـ 8 297 20-03-18, 06:13 PM
آخر رد: ahmad omar
  [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب محمد اسماعيل 4 235 28-02-18, 11:24 AM
آخر رد: silverlight
  [VB.NET] كيف امنع المستخدم من عدم ازالة صف محدد في اللست بوكس e-coder 1 191 28-02-18, 11:01 AM
آخر رد: ابو محمد القحطاني
  مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال nooralcown 7 398 22-01-18, 07:47 PM
آخر رد: nooralcown

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


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