Trouver le dossier "Documents and Settings\NomUtilisateur [Résolu]

Signaler
Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019
-
Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019
-
Bon ba mon problème c'est que je cherche le dossier "Disque:\Documents and Settings\NomUtilisateur" et je trouve pas.
Je suis en VBA Word, Office 2003
Merci

D'oh! Nuts!
Mmmmm...
DONUTS

5 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
Salut,
Exemple extrait de http://www.allapi.net/apilist/SHGetSpecialFolderLocation.shtml

8<------------------------------------------------------
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Type SHITEMID
cb As Long
abID As Byte
End Type

Private Type ITEMIDLIST
mkid As SHITEMID
End Type

Const CSIDL_PROFILE = &H28
Const NOERROR = 0

Private Function GetSpecialfolder(CSIDL As Long) As String
Dim r As Long
Dim IDL As ITEMIDLIST
'Get the special folder
r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
If r = NOERROR Then
'Create a buffer
Path$ = Space$(512)
'Get the path from the IDList
r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
'Remove the unnecessary chr$(0)'s
GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
Exit Function
End If
GetSpecialfolder = ""
End Function

------------------------------------------------------>8

'Utilisation
MsgBox GetSpecialfolder(CSIDL_PROFILE)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 106 internautes nous ont dit merci ce mois-ci

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
J'ai pas trop le temps d'expliquer alors voici une explication trouvé sur google.

What's the difference between the functions Left$ and Left or other strings functions ?
For those of you not familiar with functions, functions return a value to the procedure that calls them. This
return value can be of a particular data type, and dollar sign functions return a value of type String. The
non-dollar sign versions return a Variant Data Type
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 106 internautes nous ont dit merci ce mois-ci

Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019

Tout ca!!!!!!!!!!!!!!!!
C'est bien ça qui me falais.
Merci, je n'aurait pas trouver tout seul.

D'oh! Nuts!
Mmmmm...
DONUTS
Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019

Je suis entrain de remarquer que tu à mis des "$" avant de passer les paramètres de Left (soit "Left$
"), c'est regulier que je vois ce signe "$" et je ne sait pas ce que ca change? Peut tu me l'expliquer? Merci d'avance.

D'oh! Nuts!
Mmmmm...
DONUTS
Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019

OK merci

D'oh! Nuts!
Mmmmm...
DONUTS