[dasktop]

مرحبا

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


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

[عبدالله الدوسري]

أهلاً 

هذا الكود يؤدي نفس الغرض

كود :

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

[dasktop]

أهلاً 

هذا الكود يؤدي نفس الغرض

كود :

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'

[dasktop]

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

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

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

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

[elgokr]

بخصوص ظهور الخطاء هل لازال موجود معك ام تم الحل

وهل الان انت متوقف فقط على فتح للفورم لديك

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

لكود الاخ  عبدالله الدوسري

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

تحياتى لك

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