Vider la corbeille de windows
Résolu
Triboutmatthieu
Messages postés
206
Date d'inscription
lundi 26 septembre 2005
Statut
Membre
Dernière intervention
9 juillet 2012
-
11 août 2007 à 14:35
Triboutmatthieu Messages postés 206 Date d'inscription lundi 26 septembre 2005 Statut Membre Dernière intervention 9 juillet 2012 - 13 août 2007 à 19:10
Triboutmatthieu Messages postés 206 Date d'inscription lundi 26 septembre 2005 Statut Membre Dernière intervention 9 juillet 2012 - 13 août 2007 à 19:10
6 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
13 août 2007 à 08:34
13 août 2007 à 08:34
en .Net :
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias
"SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String,
ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As
Int32
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
#Region "Empty Recycle Bin (SUB)"
Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION +
SHERB_NOSOUND)
SHUpdateRecycleBinIcon()
End Sub
#End Region
source :
http://groups.google.fr/group/microsoft.public.dotnet.languages.vb/browse_thread/thread/728311590da97de/a4f30969b2ab4ec5?lnk=st&q=Recycle+Bin+empty+vb+.net&rnum=1&hl=fr#a4f30969b2ab4ec5
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias
"SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String,
ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As
Int32
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
#Region "Empty Recycle Bin (SUB)"
Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION +
SHERB_NOSOUND)
SHUpdateRecycleBinIcon()
End Sub
#End Region
source :
http://groups.google.fr/group/microsoft.public.dotnet.languages.vb/browse_thread/thread/728311590da97de/a4f30969b2ab4ec5?lnk=st&q=Recycle+Bin+empty+vb+.net&rnum=1&hl=fr#a4f30969b2ab4ec5
leo2708
Messages postés
35
Date d'inscription
lundi 8 mai 2006
Statut
Membre
Dernière intervention
22 août 2008
11 août 2007 à 14:45
11 août 2007 à 14:45
le code pour vider est
vb, ----
</code>
Pour appeler l'API :
vb, ----
</code>
vb, ----
<code class="vb_keyword1">PrivateDeclare
FunctionSHEmptyRecycleBin Lib
"
shell32.dll
"Alias
"
SHEmptyRecycleBinA
"( _
ByValhwnd
AsLong, _
ByValpszRootPath
As
String, _
ByValdwFlags
AsLong)
AsLong
'
Annuuler
la
boite
de
dialogue
de
confirmation
Private
ConstSHERB_NOCONFIRMATION
=
&H1
'
Annuler
la
boire
de
dialogue
de
progression
de
suppression
Private
ConstSHERB_NOPROGRESSUI
=
&H2
'
Annuler
le
son
à
la
fin
de
la
suppression
Private
ConstSHERB_NOSOUND
=
&H4
</code>
Pour appeler l'API :
vb, ----
SHEmptyRecycleBin <code class="vb_digit">0,
vbNullString, SHERB_NOCONFIRMATION
</code>
Triboutmatthieu
Messages postés
206
Date d'inscription
lundi 26 septembre 2005
Statut
Membre
Dernière intervention
9 juillet 2012
11 août 2007 à 15:02
11 août 2007 à 15:02
euh tu peux etre plus claire en me mettant les codes complets mon vb me sousligne tout en bleu
MT Productions
MT Productions
leo2708
Messages postés
35
Date d'inscription
lundi 8 mai 2006
Statut
Membre
Dernière intervention
22 août 2008
11 août 2007 à 19:59
11 août 2007 à 19:59
' On déclare donc on le met dans general declaration
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
'Annuuler la boite de dialogue de confirmation
Private Const SHERB_NOCONFIRMATION = &H1
'Annuler la boire de dialogue de progression de suppression
Private Const SHERB_NOPROGRESSUI = &H2
'Annuler le son à la fin de la suppression
Private Const SHERB_NOSOUND = &H4
' on execute la commande vider la corbeille sans demander la boite de confirmation
Private Sub Command1_Click()
SHEmptyRecycleBin 0, vbNullString, SHERB_NOCONFIRMATION
End Sub
Dsl je me suis trompé au debut
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
'Annuuler la boite de dialogue de confirmation
Private Const SHERB_NOCONFIRMATION = &H1
'Annuler la boire de dialogue de progression de suppression
Private Const SHERB_NOPROGRESSUI = &H2
'Annuler le son à la fin de la suppression
Private Const SHERB_NOSOUND = &H4
' on execute la commande vider la corbeille sans demander la boite de confirmation
Private Sub Command1_Click()
SHEmptyRecycleBin 0, vbNullString, SHERB_NOCONFIRMATION
End Sub
Dsl je me suis trompé au debut
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
13 août 2007 à 08:29
13 août 2007 à 08:29
leo2708, notre ami est en .Net, ton code est du VB6, y'a pas un soucis, là ?
Triboutmatthieu
Messages postés
206
Date d'inscription
lundi 26 septembre 2005
Statut
Membre
Dernière intervention
9 juillet 2012
13 août 2007 à 19:10
13 août 2007 à 19:10
Merci grand chef
MT Productions
MT Productions