منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا

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

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

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

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

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

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

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

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

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

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

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

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

تحياتى لك

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dasktop

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

dasktop

dasktop

elgokr