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

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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] الرجاء تعديل الكود بالملف المرفق الراس الكبيرة 2 95 01-06-19, 01:40 AM
آخر رد: الراس الكبيرة
  [VB.NET] شرط بسيط marco 3 117 27-05-19, 11:54 AM
آخر رد: سعود
  [VB.NET] حدث تعديل الخلية محمد اسماعيل 5 124 19-05-19, 03:57 AM
آخر رد: elgokr
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 248 11-05-19, 09:21 PM
آخر رد: elgokr
  [VB.NET] تعديل على كود Split DK-x 3 135 11-05-19, 04:44 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 120 07-05-19, 06:02 PM
آخر رد: dubai.eig
  [VB.NET] استفسار بسيط اسامه الهرماوي 3 120 05-05-19, 07:26 PM
آخر رد: asemshahen5
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 367 25-04-19, 09:26 AM
آخر رد: elgokr
  [ تم الحل ] تعديل على تنسيق التاريخ بالتاكست بكس محمد خيري 9 211 11-04-19, 01:55 PM
آخر رد: elgokr
Thumbs Up سؤال بسيط حول مشغل لايعمل ارجو رد حاتمي 0 127 22-03-19, 12:04 AM
آخر رد: حاتمي

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


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