المساحة المتبقية للخزن في الهارددسيك

[eng aoff]

السلام عليكم اساتذتي الكرام 

هل يمكن قراءة المساحة المتبقية لوحدة الخزن (هارديسك) في السيرفر كنسبة مئوية؟

[Shivan Rekany]

12 ساعات مضت, eng aoff jadaan said:

هل يمكن قراءة المساحة المتبقية لوحدة الخزن (هارديسك) في السيرفر كنسبة مئوية؟

الیک ھذا الكود سيعطيك مساحة اجمالي ومساحة خالي لكل قرص
 

Const strComputer = "."
	Dim objWMIService, colItems, objItem
		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
			Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType = '3'")
	For Each objItem In colItems
 		MsgBox "Directory: " & objItem.Name & vbCrLf & _
     	"Size: " & Round(Cdbl(objItem.Size) / 1073741824) & "GB" & vbCrLf & _
     	"Free Space: " & Round(CDbl(objItem.FreeSpace) / 1073741824) & "GB"
	Next

 

[eng aoff]

بارك الله فيك اخي شفان

تم تعديل يناير 20, 2018 بواسطه eng aoff jadaan