On Error Resume Next
Dim dr As IO.DriveInfo
Dim i As Integer
Dim trnode As TreeNode
i = My.Computer.FileSystem.Drives.Count
For i = 1 To i
dr = My.Computer.FileSystem.GetDriveInfo(My.Computer.FileSystem.Drives.Item(i - 1).ToString)
trnode = treename.Nodes.Add(dr.ToString)
trnode.Nodes.Add("DriveType : " & dr.DriveType.ToString)
trnode.Nodes.Add("DriveFormat : " & dr.DriveFormat.ToString)
trnode.Nodes.Add("TotalSize : " & dr.TotalSize)
trnode.Nodes.Add("TotalFreeSpace : " & dr.TotalFreeSpace)
Next
Dim dr As IO.DriveInfo
Dim i As Integer
Dim trnode As TreeNode
i = My.Computer.FileSystem.Drives.Count
For i = 1 To i
dr = My.Computer.FileSystem.GetDriveInfo(My.Computer.FileSystem.Drives.Item(i - 1).ToString)
trnode = treename.Nodes.Add(dr.ToString)
trnode.Nodes.Add("DriveType : " & dr.DriveType.ToString)
trnode.Nodes.Add("DriveFormat : " & dr.DriveFormat.ToString)
trnode.Nodes.Add("TotalSize : " & dr.TotalSize)
trnode.Nodes.Add("TotalFreeSpace : " & dr.TotalFreeSpace)
Next
تعليقات
إرسال تعليق