PureBasic

Code : Tout sélectionner

EnableExplicit

Define lpFreeBytesAvailable.q
Define lpTotalNumberOfBytes.q
Define lpTotalNumberOfFreeBytes.q

GetDiskFreeSpaceEx_("C:\", @lpFreeBytesAvailable, @lpTotalNumberOfBytes, @lpTotalNumberOfFreeBytes)

Debug "Free space  : " + Str(lpFreeBytesAvailable/1024/1024/1024) + " GB"
Debug "Space used  : " + Str((lpTotalNumberOfBytes-lpFreeBytesAvailable)/1024/1024/1024) + " GB"
Debug "Total space : " + Str(lpTotalNumberOfBytes/1024/1024/1024) + " GB"

Code : Tout sélectionner

EnableExplicit
Procedure.s DriveTypeInfo(Drive$,TypeInfo$) 
  
  Define VName.s, FSName.s 
  VName  = Space(255) 
  FSName = Space(255)   
  
  If GetVolumeInformation_(Drive$, VName, 255, #Null, 0, 0, FSName, 255) 
    
    If TypeInfo$ = "Partition"
      ProcedureReturn FSName        
    ElseIf TypeInfo$ = "Label"
      If VName <> ""
        ProcedureReturn VName
      Else 
        ProcedureReturn "-----"
      EndIf 
    EndIf    
  Else      
    ProcedureReturn "-----"
  EndIf 
  
EndProcedure

Global Drive$ = "E:\"
Debug "Drive name = "+DriveTypeInfo(Drive$,"Label")
Debug "Drive partition = "+DriveTypeInfo(Drive$,"Partition")