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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : عدد الملفات في مجلد (/showthread.php?tid=21113)



عدد الملفات في مجلد - dr.mostashar - 18-07-17

السلام عليكم

كيف يمكن معرفة عدد الملفات في مجلد معين

ولكم جزيل الشكر


RE: عدد الملفات في مجلد - Ahmed_Mansoor - 19-07-17

وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , هذا الكود لعمل ذلك :

PHP كود :
Private Sub Command1_Click()

Dim FSO As Object
Dim Folder 
As Object

Set FSO 
CreateObject("Scripting.FileSystemObject")

If 
FSO.FolderExists("C:\Windows"Then
   Set Folder 
FSO.GetFolder("C:\Windows")
   
MsgBox Folder.Files.Count
End 
If

Set Folder Nothing
Set FSO 
Nothing

End Sub