Nbre d'element de la corbeille
trcdl
Messages postés
78
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
25 juin 2007
-
1 mars 2005 à 21:18
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 2 mars 2005 à 10:53
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 2 mars 2005 à 10:53
A voir également:
- &H80000000
- Ajouter un element dans un tableau java - Forum Java
- Ajouter des entiers dans un tableau a trier dans un ordre croissant - Forum Java
- AJout de ligne dans un tableau en fonction de la saisie ✓ - Forum Java
- Ajouter un élément dans un tableau java - Forum Java
- Php supprimer un élément d'un tableau ✓ - Forum PHP
1 réponse
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
2 mars 2005 à 10:53
2 mars 2005 à 10:53
Avec un Bouton (Command1) et 2 TextBox (TxtNb , TxtSize)
Private Const S_OK = &H0
Private Type ULARGE_INTEGER
LowPart As Long
HighPart As Long
End Type
Private Type SHQUERYRBINFO
cbSize As Long
i64Size As ULARGE_INTEGER
i64NumItems As ULARGE_INTEGER
End Type
Private Declare Function SHQueryRecycleBin Lib "shell32.dll" _ Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, _ pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Sub Command1_Click()
Dim rbinfo As SHQUERYRBINFO
Dim retval As Long
rbinfo.cbSize = Len(rbinfo)
retval = SHQueryRecycleBin("C:", rbinfo)
If (rbinfo.i64NumItems.LowPart And &H80000000) = &H80000000 Or _ rbinfo.i64NumItems.HighPart > 0 Then
TxtNb = "La Poubelle Contient plus de 2,147,483,647 items."
Else
TxtNb = "La Poubelle Contient : " & rbinfo.i64NumItems.LowPart & " items."
End If
If (rbinfo.i64Size.LowPart And &H80000000) = &H80000000 Or rbinfo.i64Size.HighPart > 0 Then
TxtSize = "La Poubelle Contient plus de 2,147,483,647 bytes."
Else
TxtSize = "La Poubelle Contient : " & rbinfo.i64Size.LowPart & " bytes."
End If
End Sub
It@li@
Private Const S_OK = &H0
Private Type ULARGE_INTEGER
LowPart As Long
HighPart As Long
End Type
Private Type SHQUERYRBINFO
cbSize As Long
i64Size As ULARGE_INTEGER
i64NumItems As ULARGE_INTEGER
End Type
Private Declare Function SHQueryRecycleBin Lib "shell32.dll" _ Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, _ pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Sub Command1_Click()
Dim rbinfo As SHQUERYRBINFO
Dim retval As Long
rbinfo.cbSize = Len(rbinfo)
retval = SHQueryRecycleBin("C:", rbinfo)
If (rbinfo.i64NumItems.LowPart And &H80000000) = &H80000000 Or _ rbinfo.i64NumItems.HighPart > 0 Then
TxtNb = "La Poubelle Contient plus de 2,147,483,647 items."
Else
TxtNb = "La Poubelle Contient : " & rbinfo.i64NumItems.LowPart & " items."
End If
If (rbinfo.i64Size.LowPart And &H80000000) = &H80000000 Or rbinfo.i64Size.HighPart > 0 Then
TxtSize = "La Poubelle Contient plus de 2,147,483,647 bytes."
Else
TxtSize = "La Poubelle Contient : " & rbinfo.i64Size.LowPart & " bytes."
End If
End Sub
It@li@
