Bonjour,

j'utilise le code suivant pour essayer de trier mes icones du bureau, mais ca ne marche pas .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
'Déclaration
'-------------
'API declarations
Public Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LPARAM As Any) As Long
 
Public Const LVS_SORTASCENDING = &H10   'pour trier par nom asc
 
Public Const LVM_SORTITEMS = (LVM_FIRST + 48)
 
'et d'autres déclarations...
 
 
'code ds procedure sub
'-------------------------
 
Public Sub sortIconsByNameAsc()
 
   h = GetDesktopWindow() 'hwnd for desktop
 
   Call SendMessage(h, LVM_SORTITEMS, LVS_SORTASCENDING, h)
 
end sub