- Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll"_ Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String,_ ByVal nFolder As Long, ByVal fCreate As Long) As Long
-
- Public Function SDossier(dossier As Long, hwnd As Long)
- Dim buff As String
- buff = Space(260)
- SHGetSpecialFolderPath hwnd, buff, dossier, 0
- SDossier = Left(buff, InStr(1, buff, Chr(0)) - 1)
- End Function
-
- '''''''''''''''''''''''Constantes'''''''''''''''''''''''''''''''''
-
- 0 C:\Documents and Settings\user\Bureau
- 2 C:\Documents and Settings\user\Menu Démarrer\Programmes
- 5 C:\Documents and Settings\user\Mes documents
- 6 C:\Documents and Settings\user\Favoris
- 7 C:\Documents and Settings\user\Menu Démarrer\Programmes\Démarrage
- 8 C:\Documents and Settings\user\Recent
- 9 C:\Documents and Settings\user\SendTo
- 11 C:\Documents and Settings\user\Menu Démarrer
- 13 C:\Documents and Settings\user\Mes documents\Ma musique
- 16 C:\Documents and Settings\user\Bureau
- 19 C:\Documents and Settings\user\Voisinage réseau
- 20 C:\WINDOWS\Fonts
- 21 C:\Documents and Settings\user\Modèles
- 22 C:\Documents and Settings\All Users\Menu Démarrer
- 23 C:\Documents and Settings\All Users\Menu Démarrer\Programmes
- 24 C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage
- 25 C:\Documents and Settings\All Users\Bureau
- 26 C:\Documents and Settings\user\Application Data
- 27 C:\Documents and Settings\user\Voisinage d'impression
- 28 C:\Documents and Settings\user\Local Settings\Application Data
- 31 C:\Documents and Settings\All Users\Favoris
- 32 C:\Documents and Settings\user\Local Settings\Temporary Internet Files
- 33 C:\Documents and Settings\user\Cookies
- 34 C:\Documents and Settings\user\Local Settings\Historique
- 35 C:\Documents and Settings\All Users\Application Data
- 36 C:\WINDOWS
- 37 C:\WINDOWS\System32
- 38 C:\Program Files
- 39 C:\Documents and Settings\user\Mes documents\Mes images
- 40 C:\Documents and Settings\user
- 41 C:\WINDOWS\System32
- 43 C:\Program Files\Fichiers communs
- 45 C:\Documents and Settings\All Users\Modèles
- 46 C:\Documents and Settings\All Users\Documents
- 47 C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Outils d'administration
- 53 C:\Documents and Settings\All Users\Documents\Ma musique
- 54 C:\Documents and Settings\All Users\Documents\Mes images
- 56 C:\WINDOWS\resources
Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll"_ Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String,_ ByVal nFolder As Long, ByVal fCreate As Long) As Long
Public Function SDossier(dossier As Long, hwnd As Long)
Dim buff As String
buff = Space(260)
SHGetSpecialFolderPath hwnd, buff, dossier, 0
SDossier = Left(buff, InStr(1, buff, Chr(0)) - 1)
End Function
'''''''''''''''''''''''Constantes'''''''''''''''''''''''''''''''''
0 C:\Documents and Settings\user\Bureau
2 C:\Documents and Settings\user\Menu Démarrer\Programmes
5 C:\Documents and Settings\user\Mes documents
6 C:\Documents and Settings\user\Favoris
7 C:\Documents and Settings\user\Menu Démarrer\Programmes\Démarrage
8 C:\Documents and Settings\user\Recent
9 C:\Documents and Settings\user\SendTo
11 C:\Documents and Settings\user\Menu Démarrer
13 C:\Documents and Settings\user\Mes documents\Ma musique
16 C:\Documents and Settings\user\Bureau
19 C:\Documents and Settings\user\Voisinage réseau
20 C:\WINDOWS\Fonts
21 C:\Documents and Settings\user\Modèles
22 C:\Documents and Settings\All Users\Menu Démarrer
23 C:\Documents and Settings\All Users\Menu Démarrer\Programmes
24 C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage
25 C:\Documents and Settings\All Users\Bureau
26 C:\Documents and Settings\user\Application Data
27 C:\Documents and Settings\user\Voisinage d'impression
28 C:\Documents and Settings\user\Local Settings\Application Data
31 C:\Documents and Settings\All Users\Favoris
32 C:\Documents and Settings\user\Local Settings\Temporary Internet Files
33 C:\Documents and Settings\user\Cookies
34 C:\Documents and Settings\user\Local Settings\Historique
35 C:\Documents and Settings\All Users\Application Data
36 C:\WINDOWS
37 C:\WINDOWS\System32
38 C:\Program Files
39 C:\Documents and Settings\user\Mes documents\Mes images
40 C:\Documents and Settings\user
41 C:\WINDOWS\System32
43 C:\Program Files\Fichiers communs
45 C:\Documents and Settings\All Users\Modèles
46 C:\Documents and Settings\All Users\Documents
47 C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Outils d'administration
53 C:\Documents and Settings\All Users\Documents\Ma musique
54 C:\Documents and Settings\All Users\Documents\Mes images
56 C:\WINDOWS\resources