Dim dr As IO.DriveInfo
dr = My.Computer.FileSystem.GetDriveInfo("c:\")
ومن ثم :
لأخذ المساحة الكلية
MsgBox(dr.TotalSize)
لأخذ المساحة الحرة
MsgBox(dr.TotalFreeSpace)
لأخذ النوع
MsgBox(dr.DriveType.ToString)
لأخذ نظام الملفات
MsgBox(dr.DriveFormat)
dr = My.Computer.FileSystem.GetDriveInfo("c:\")
ومن ثم :
لأخذ المساحة الكلية
MsgBox(dr.TotalSize)
لأخذ المساحة الحرة
MsgBox(dr.TotalFreeSpace)
لأخذ النوع
MsgBox(dr.DriveType.ToString)
لأخذ نظام الملفات
MsgBox(dr.DriveFormat)
تعليقات
إرسال تعليق