تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل بسيط
#1
مرحبا

انا عملت مشروع معرفة عدد الملفات في مسار محدد


C:\Windows\prefetch

واذا لايوجد ملف تضهر رساله لايوجد ملفات للمسح

واستخدمت الكود التالي المطلوب بدل من العدد معرفة هل يوجد ملفات او لا


كود :
       Dim FSO As Object
       Dim Folder As Object

       FSO = CreateObject("Scripting.FileSystemObject")

       If FSO.FolderExists("C:\Windows") Then
           Folder = FSO.GetFolder("C:\Windows")
           Form2.Label1.Text = (Folder.Files.Count)
           Form2.Show()
       End If

       Folder = Nothing
       FSO = Nothing
   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
أهلاً 

هذا الكود يؤدي نفس الغرض
كود :
Dim FullName As String = "C:\Windows"
If(Directory.Exists(FullName)) Then
    If Directory.GetFiles(FullName, "*.*").Count > 0 Then
        Form2.Label1.Text = "يوجد ملفات"
    Else
        Form2.Label1.Text = "لا توجد ملفات"
    End If
    Form2.Show()
End If
الرد
#3
(24-09-18, 04:47 AM)عبدالله الدوسري كتب : أهلاً 

هذا الكود يؤدي نفس الغرض
كود :
Dim FullName As String = "C:\Windows"
If(Directory.Exists(FullName)) Then
    If Directory.GetFiles(FullName, "*.*").Count > 0 Then
        Form2.Label1.Text = "يوجد ملفات"
    Else
        Form2.Label1.Text = "لا توجد ملفات"
    End If
    Form2.Show()
End If

ضهر لي الخطا التالي
 'Count' is not a member of 'System.Array'
الرد
تم الشكر بواسطة:
#4
انا اخترت اذا يوجد ملفات يتم التحويل على الفروم 5 وهو فروم للحذف مباشرة
واذا لايوجد يتم التحويل على فروم 6 وهو فروم مكتوب فيه لايوجد ملفات للحذف

واستخدمت الكود التالي

وضعت تحت كلمة يوجد ملفات form5.show وتحت لايوجد وضعت form6.show

ولم يعمل الكود
الرد
تم الشكر بواسطة:
#5
بخصوص ظهور الخطاء هل لازال موجود معك ام تم الحل
وهل الان انت متوقف فقط على فتح للفورم لديك

اتمنى ارفقا المشروع لديك لرؤية ما فعلته وما تم تطبيقك 
لكود الاخ  عبدالله الدوسري

حتى توضح الصورة كاملاً من عدد الشاشات التى فى المشروع ومسمياتها

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل بسيط في كود بحث trakktour 1 14 منذ 39 دقيقة مضت
آخر رد: elgokr
  [VB.NET] تعديل بسيط في الكود :) مجهول 5 139 منذ 2 ساعة مضت
آخر رد: elgokr
  مطلوب كود بسيط تحويل القريد فيو في الوورد نور الهدى الهدى 5 86 منذ 2 ساعة مضت
آخر رد: حريف برمجة
  خطأ بسيط لا اعلم مغزاه ابو روضة 6 195 03-12-18, 02:32 AM
آخر رد: ابو روضة
  [مشروع] طلب بسيط اسامه الهرماوي 1 87 27-11-18, 12:03 AM
آخر رد: elgokr
  محتاج مساعدة فى تعديل كود بسيط Mohamed Magdy 5 100 17-11-18, 04:30 AM
آخر رد: elgokr
  [VB.NET] المساعدة في تعديل كود farfour 1 56 15-11-18, 06:18 PM
آخر رد: elgokr
  تعديل التاريخ من اليمين لليسار في الكريستال ريبورت جيولوجي مبتدئ 1 72 13-11-18, 01:05 AM
آخر رد: عبد العزيز البسكري
  [سؤال] طلب تعديل علي كود سكرين شوت ScreamVoice 2 87 08-11-18, 06:17 PM
آخر رد: ScreamVoice
  [سؤال] طلب تعديل علي رابط موقع داخل الكود ScreamVoice 2 111 04-11-18, 01:22 PM
آخر رد: ScreamVoice

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


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