eng aoff قام بنشر يناير 20, 2018 مشاركة قام بنشر يناير 20, 2018 السلام عليكم اساتذتي الكرام هل يمكن قراءة المساحة المتبقية لوحدة الخزن (هارديسك) في السيرفر كنسبة مئوية؟ رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 20, 2018 مشاركة قام بنشر يناير 20, 2018 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 1 رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر يناير 20, 2018 الكاتب مشاركة قام بنشر يناير 20, 2018 (معدل) بارك الله فيك اخي شفان تم تعديل يناير 20, 2018 بواسطه eng aoff jadaan رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان