[VBA-EXCEL] Recycle Bin/Corbeille

salut,

voici une petite liste de constante qui peuvent te mettre sur la voie ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 
La liste des constantes pour afficher le chemin des autres dossiers spéciaux de Windows :
 
&H5 = My Documents
&HC = (Virtual) \My Documents\
&H27 = \My Documents\My Pictures
&H2E = \Documents
&HD = \My Documents\My Music
&HE = \My Documents\My Video
&H0 = Virtual Desktop
&H1 = Virtual Internet Explorer (icon on desktop)
&H2 = Start Menu\Programs
&H3 = Virtual My Computer\Control Panel
&H4 = Virtual My Computer\Printers
&H6 = \Favorites
&H7 = Start Menu\Programs\Startup
&H8 = \Recent
&H9 = \sendTo
&HA = Virtual \Recycle Bin
&HB = \Start Menu
&H10 = \Desktop
&H11 = Virtual My Computer
&H12 = Virtual Network Neighborhood
&H13 = \nethood (may dupe My Network Places)
&H14 = Virtual windows\fonts
&H15 = \templates
&H16 = \Start Menu
&H17 = \Programs
&H18 = \Startup
&H19 = \Desktop
&H1A = \Application Data
&H1B = \printHood
&H1C = \Local Settings\Application Data (non roaming)
&H1D = nonlocalized startup program group
&H1E = (NT) nonlocalized Startup group for all NT users
&H1F = (NT) all user's favorite items
&H20 = temporary Internet files
&H21 = (NT) Internet cookies
&H22 = (NT) Internet history items
&H23 = \Application Data
&H24 = Windows directory or SYSROOT
&H25 = getSystemDirectory()
&H26 = \Program Files
&H28 = \
&H29 = x86 system directory on RISC
&H2A = x86 Program Files folder on RISC
&H2B = \Program Files\Common
&H2C = x86 Program Files Common folder on RISC
&H2D = \Templates
&H2F = \Start Menu\Programs\Administrative Tools
&H30 = \Start Menu\Programs\Administrative Tools
&H31 = Virtual Network and dial-up connections folder
&H35 = My Music folder for all users
&H36 = My Pictures folder for all users
&H37 = My Video folder for all users
&H38 = System resource directory
&H39 = Localized resource directory
&H3A = Links to OEM specific apps for all users
&H3B = \Local Settings\Application Data\Microsoft\CD Burning
&H3D = Virtual Computers Near Me folder

donc je serai toi j'utiliserai ca :

Code:

1
2
3
4
5
 
 
faire une couper/coller dans ca :
 
&HA = Virtual \Recycle Bin

et voici un code qui utilise les constantes temporary files pour voir l'utilisation:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
 
 
Sub save3()
 
Dim myfiles As String
Dim i As Integer
Dim mystring As String
 
Const Cible = &H20 'temporary Internet files
Const Cibledest = &HD 
Dim objShell As Object, objFolder As Object, objFolderItem As Object
Dim objItem As Object
 
Dim objShelldest As Object, objFolderdest As Object, objFolderItemdest As Object
Dim objItemdest As Object
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Cible)
Set objFolderItem = objFolder.Self
 
Set objShelldest = CreateObject("Shell.Application")
Set objFolderdest = objShell.NameSpace(Cibledest)
Set objFolderItemdest = objFolderdest.Self
 
'MsgBox objFolderItem.path
Debug.Print objFolderItem.path
Debug.Print objFolderItemdest.path
i = 0
 
For Each objItem In objFolder.Items
 
    If Right(objItem.Name, 4) = ".rbs" Then
    Debug.Print objItem.Name
 
 
    'objItem.Copy objFolderItemdest.path
     Shell ("copy " & objFolderItem.path & "\" & objItem.Name & " " & objFolderItemdest.path & "\" & objItem.Name)
 
 
    myfiles = myfiles + " " + objItem.Name
    Debug.Print myfiles
 
    i = i + 1
 
    End If
 
Next objItem
 
If (i > 0) Then
MsgBox (myfiles)
Else
MsgBox ("Pas de fichiers rbs dans " & objFolderItem.path)
End If
 
End Sub

j'espere que ces infos te mettront sur la voie ;)