24-09-18, 04:30 AM
مرحبا
انا عملت مشروع معرفة عدد الملفات في مسار محدد
C:\Windows\prefetch
واذا لايوجد ملف تضهر رساله لايوجد ملفات للمسح
واستخدمت الكود التالي المطلوب بدل من العدد معرفة هل يوجد ملفات او لا
انا عملت مشروع معرفة عدد الملفات في مسار محدد
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