Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 03:39:51

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

RE : PROBLEME VB6 par xanasx

PROBLEME VB6 par xanasx

SALUT par hachem100

+ de logiciels à télécharger

1 467 633 membres
52 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 669 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DOSSIERS SPÉCIAUX

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 709

Auteur : vbnul

Site perso

Ecrire un message privé

Note :

8,17 / 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

PROCESS VIEWER

ANONYM MAIL SENDER (WINSOCK)

EDITEUR DE VBS ET HTML

UN CHAT CLIENT ET SERVEUR AVEC WINSOCK

RECHERCHE DE FICHIERS

Toutes les sources de vbnul

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Commentaires et avis

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 ?