A voir également:
- Comment connaitre l'espace libre d'un disque ?
- Myconnecting mon espace - Forum C++ & C++ .NET
- Mailto espace ✓ - Forum VB.NET
- HELP!!!! gérer les espace dans mon prog lors des questions - Forum C / C++ / C++.NET
- Vba supprimer espace - Forum Visual Basic
- Python supprimer espace ✓ - Forum Python
1 réponse
Salut
A adapter pour ton application :
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
Private Sub Form_Load()
Dim Sectors As Long, Bytes As Long, FreeC As Long
Dim TotalC As Long, Total As Double, Freeb As Double
GetDiskFreeSpace "C:", Sectors, Bytes, FreeC, TotalC
Me.AutoRedraw = True
Print "Driver : C:"
Print "Secteur par Cluster : " + Str$(Sectors)
Print "Octets par secteur : " + Str$(Bytes)
Print "Nombre de Cluster Libre : " + Str$(FreeC)
Print "Nombre total de Cluster : " + Str$(TotalC)
Print
Total = TotalC * Sectors
Total = Total * Bytes
Print "Total : " + Format(Total, "###,###") + " octet(s)"
Freeb = FreeC * Sectors
Freeb = Freeb * Bytes
Print "Libre : " + Format(Freeb, "###,###") + " octet(s)"
End Sub
a+
Int19h
A adapter pour ton application :
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
Private Sub Form_Load()
Dim Sectors As Long, Bytes As Long, FreeC As Long
Dim TotalC As Long, Total As Double, Freeb As Double
GetDiskFreeSpace "C:", Sectors, Bytes, FreeC, TotalC
Me.AutoRedraw = True
Print "Driver : C:"
Print "Secteur par Cluster : " + Str$(Sectors)
Print "Octets par secteur : " + Str$(Bytes)
Print "Nombre de Cluster Libre : " + Str$(FreeC)
Print "Nombre total de Cluster : " + Str$(TotalC)
Total = TotalC * Sectors
Total = Total * Bytes
Print "Total : " + Format(Total, "###,###") + " octet(s)"
Freeb = FreeC * Sectors
Freeb = Freeb * Bytes
Print "Libre : " + Format(Freeb, "###,###") + " octet(s)"
End Sub
a+
Int19h
