[color=000080]Private Declare Function [/color][color=000000]GetDiskFreeSpaceEx _
  [/color][color=000080]Lib [/color][color=000000]"kernel32" _
  [/color][color=000080]Alias [/color][color=000000]"GetDiskFreeSpaceExA" _
  [/color][color=000000]([/color][color=000080]ByVal[/color][color=000000] _
  [/color][color=000000]lpRootPathName [/color][color=000080]As _
  [color=000080]String[/color][color=000000], _
  [/color][color=000000]lpFreeBytesAvailableToCaller [/color][color=000080]As _
  [color=000080]Currency[/color][color=000000], _
  [/color][color=000000]lpTotalNumberOfBytes [/color][color=000080]As _
  [color=000080]Currency[/color][color=000000], _
  [/color][color=000000]lpTotalNumberOfFreeBytes [/color][color=000080]As _
  [color=000080]Currency[/color][color=000000]) [/color][color=000080]As Long _
  [/color]
 
[color=000080]Private Sub [/color][color=000000]Form_Load() [/color]
[color=000000]    [/color][color=000080]Dim [/color][color=000000]r _
  [/color][color=000080]As [color=000080]Long[/color][color=000000], _
  [/color][color=000000]BytesFreeToCalller [/color][color=000080]As _
  [color=000080]Currency[/color][color=000000], _
  [/color][color=000000]TotalBytes [/color][color=000080]As Currency [/color]
[color=000000]    [/color][color=000080]Dim _
[/color][color=000000]TotalFreeBytes [/color][color=000080]As _
[color=000080]Currency[/color][color=000000], _
[/color][color=000000]TotalBytesUsed [/color][color=000080]As Currency [/color]
[color=000000]    [color=008000]'the drive to find 
[color=000000]    [/color][color=000080]Const _
  [/color][color=000000]RootPathName = "C:\" [/color]
[color=000000]    [color=008000]'get the drive's disk parameters 
[color=000000]    [/color][color=000080]Call _
  [/color][color=000000]GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, _
  TotalBytes, TotalFreeBytes) [/color]
[color=000000]    [color=008000]'show the results, multiplying the returned 
' 
[color=000000]    [color=008000]'value by 10000 to adjust for the 4 decimal 
' 
[color=000000]    [color=008000]'places that the currency data type returns. 
' 
[color=000000]    Me.AutoRedraw = [/color][color=000080]True [/color]
[color=000000]    Me.Cls [/color]
[color=000000]    Me.Print [/color]
[color=000000]    Me.Print " Total Number Of Bytes:", Format$(TotalBytes * _
  10000, "###,###,###,##0") & " bytes" [/color]
[color=000000]    Me.Print " Total Free Bytes:", Format$(TotalFreeBytes * _
10000, "###,###,###,##0") & " bytes" [/color]
[color=000000]    Me.Print " Free Bytes Available:", Format$(BytesFreeToCalller _
* 10000, "###,###,###,##0") & " bytes" [/color]
[color=000000]    Me.Print " Total Space Used :", Format$((TotalBytes - _
TotalFreeBytes) * 10000, "###,###,###,##0") & " bytes" [/color]
[color=000080]End Sub [/color]

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...