YoDa
-
6 mai 2001 à 11:58
kesa7
Messages postés27Date d'inscriptionjeudi 21 août 2008StatutMembreDernière intervention29 août 2008
-
26 août 2008 à 18:26
helo,
je voudrais pouvoir voir le contenu de la corbeille depuis mon programme ...
si qqn peut m'aider ca srait cool
A++
kesa7
Messages postés27Date d'inscriptionjeudi 21 août 2008StatutMembreDernière intervention29 août 2008 26 août 2008 à 18:26
salut
Private Const RECYCLE_BIN = &HA&
Private Sub Command1_Click()
Dim objShell As Shell
Dim objFolder As Folder
Dim objFolderItem As FolderItem
Dim colItems As FolderItems
Set objShell = New Shell ' CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(RECYCLE_BIN)
Set objFolderItem = objFolder.Self
Me.Caption = objFolderItem.Path
Me.Label1.Caption = objFolderItem.Name
Set colItems = objFolder.Items
For Each objFolderItem In colItems
List1.AddItem objFolderItem
Next
Me.Label2.Caption = Me.List1.ListCount & " élément(s)"
End Sub