DOSSIERS SPÉCIAUX , Source N°3501

Information sur la source

Catégorie :API Niveau : Initié Date de création : 01/06/2002 Date de mise à jour : 01/06/2002 10:31:19 Vu : 4 118

Auteur : vbnul

Site perso

Ecrire un message privé

Note :

8,17 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (12)

Ajouter un commentaire et/ou une note

Description

c'te fonction permet de connaitre l'emplacement d'un répertoire.
Par exemple c:\windows\recent
y faut lui passer les constantes ci dessous

Source

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

Conclusion

elle utilise une API trop dure à trouver, elle y est meme pas dans la visionneuse

Sources du même auteur

Toutes les sources de vbnul

Sources de la même categorie

Toutes les sources de la catégorie API

Commentaires

Commentaire de Smile le 08/06/2002 14:15:05

Terrible ca fait longtemps que je cherchais ca !!!!!
Mais bon chez moi ya pas C:Documents and Settings
et pour le 37 ca met C:WindowsSystem.
Bonne Prog
Commentaire de Setaou le 05/11/2002 09:54:39

c'est parce que tu n'est pas sous 2000/XP
Commentaire de Titimoteph le 14/11/2002 11:30:01

C'est peut-être moi, mais je ne comprend pas bien l'intérêt ??? Ca marche pour plusieurs plateformes ? A partir du moment ou tu connaît le chiffre, c'est que tu connaît le chemin... Comprend pas...
Commentaire de vbnul le 01/01/2003 10:06:13

lol, t'a pas pigé.
Les noms des dossiers peuvent varier, et avec c'te fonction tu connais leur noms.
0 c'est po tjs C:Documents And SettingsuserBureau
Commentaire de loytstf le 28/05/2003 09:56:33

Trop de la balle. Ca marche nickel. C'est super pratique.
Commentaire de bmoe le 21/11/2005 01:11:15

super, mais je voudrais savoir quelle valeur il faut mettre dans hwnd
Merci de votre réponse.
Commentaire de ABF le 02/04/2006 18:44:32

Salut,

Bonne source. Il manque :
14  -  C:\Documents and Settings\User\Mes documents\Mes vidéos
55  -  C:\Documents and Settings\All Users.WINDOWS\Documents\Mes vidéos
59  -  C:\Documents and Settings\User\Local Settings\Application Data\Microsoft\CD Burning

A ++
Commentaire de ABF le 02/04/2006 18:49:13

pour BMOE :
J'ai essayé, avec itération et le hwnd ne "sert a rien"

Dim i As Long 'Voir la fonction (dossier As Long) : essayer en Integer
Dim dos as string

    Open App.path & "Dossiers.txt" For Append As #1 'ouverture fichier
        For i = 0 To 60                             'itération a 60
            dos = SDossier(i, 1)                    'chaine (dossier)
            Print #1, i & "  -  " & dos             'ecriture fichier (concaténation n° - dossier
        Next
    Close #1                                        'fermeture fichier
Commentaire de bobolechef le 21/04/2006 16:27:47

Une question : est-ce que les constantes sont les memes si on a une partition sur l'ordi et que l'on veut écrire sur une lettre qui n'est pas "C:\".
Par exemple, si j'ai une partition "D:\" et que mon répertoire "C:\Documents and Settings\user\Application Data" est sur "D:\Documents and Settings\user\Application Data", ça marche ?
Commentaire de ABF le 21/04/2006 19:08:18

Avant de poser une question bobolechef, tu devarais tester
Pour ta gouverne ce fonctionne vu que c'est une api.
Commentaire de Smu2015 le 04/02/2007 13:47:08

Code tres utilie, merci beaucoup :)
Commentaire de yannn le 19/02/2007 21:00:16

Je recherche le code pour connaitre le lien du repertoire de la corbeille de windows ... quelqu'un le connaitrait il ???