[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