[asto]

في هذا الرابط قائمة الاقراص في لست

http://support.microsoft.com/kb/291573

و هذا كود عند الضغط على اللست1

كود :

Private Sub List1_Click()
i = List1.ListIndex
Text1.Text = List1.List(i)
End Sub

و هذا كود الحساب عدله

كود :

Private Declare Function SHGetDiskFreeSpace Lib "shell32" Alias "SHGetDiskFreeSpaceA" (ByVal pszVolume As String, pqwFreeDiskspace As Currency, pqwTot As Currency, pqwFree As Currency) As Long

Private Sub Form_Load()
    Dim FreeDiskspace As Currency, Tot As Currency, Free As Currency
    SHGetDiskFreeSpace text1.text, FreeDiskspace, Tot, Free
    
    MsgBox "Free Disk space is: " + Format$(FreeDiskspace * 10000, "###,###,###,##0") + vbCrLf + _
        "Total Disk space: " + Format$(Tot * 10000, "###,###,###,##0") + vbCrLf + _
        "Free space: " + Format$(Free * 10000, "###,###,###,##0") + vbCrLf + _
        "Used Space: " + Format$(Tot * 10000 - Free * 10000, "###,###,###,##0")
        
End Sub

و هذا كود التحويل الى ميغا /كيلو/غيغا بدلا عن البايت حيث ال TxtPath هو تكست بوكس و ال TxtPath هو اسمه

كود :

Private Sub CmdFileSize_Click()
    Dim LonSize As Long
    Dim StrSize As String
    LonSize = FileLen(TxtPath)
    If LonSize >= (1024 ^ 3) Then
        StrSize = Str(Format(LonSize / (1024 ^ 3), "###0.00")) & " GB"
    ElseIf LonSize >= (1024 ^ 2) Then
        StrSize = Str(Format(LonSize / (1024 ^ 2), "###0.00")) & " MB"
    ElseIf LonSize >= 1024 Then
        StrSize = Str(Format(LonSize / 1024, "###0.00")) & " KB"
    ElseIf LonSize >= 0 Then
        StrSize = Str(LonSize) & " B"
    End If
  
    MsgBox StrSize
End Sub