'Dans la section générale de la feuille 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() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim Sectors as Long,Bytes as Long,FreeC as Long, TotalC as Long,Total as Long,Freeb as Long GetDiskFreeSpace "C:\", Sectors, Bytes, Freec, Totalc Me.AutoRedraw = True Me.Print " Chemin : C:\" Me.Print " Secteurs par Cluster:" + Str$(Sector) Me.Print " Bytes par secteur:" + Str$(Bytes) Me.Print " Nombre de clusters libres :" + Str$(Freec) Me.Print " Nombre total de clusters :" + Str$(Totalc) Total = rTotalc& * rSector& * rBytes& Me.Print " Nombre total de bytes du répertoire " + Str$(Total) Freeb = rFreec& * rSector& * rBytes& Me.Print " bytes libres :" + Str$(Freeb) End sub