منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل بسيط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26629)

تعديل بسيط - dasktop - 24-09-18

مرحبا

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


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


RE: تعديل بسيط - عبدالله الدوسري - 24-09-18

أهلاً 

هذا الكود يؤدي نفس الغرض
كود :
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


RE: تعديل بسيط - dasktop - 24-09-18

(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'

RE: تعديل بسيط - dasktop - 24-09-18

انا اخترت اذا يوجد ملفات يتم التحويل على الفروم 5 وهو فروم للحذف مباشرة
واذا لايوجد يتم التحويل على فروم 6 وهو فروم مكتوب فيه لايوجد ملفات للحذف

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

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

ولم يعمل الكود

RE: تعديل بسيط - elgokr - 25-09-18

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

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

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

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