با سلام خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

با این تکه کد  حجم پوشه و فایل های داخلش رو میگیریم .

حجم رو به بایت میده که تقسیم بر ۱۰۲۴ کنه

Dim l As List
	l.Initialize
	l=File.ListFiles(File.DirRootExternal&"/pooshe")
	
	Dim size As Int
	
	For i=0 To l.Size-1
		size=size+File.Size(File.DirRootExternal&"/pooshe",l.Get(i))
	Next
	
	Msgbox(size,"اندازه کل فایل های پوشه")
	Msgbox(l.Size,"تعداد کل فایل های پوشه")

 

موفق باشید .