trouver dossier utilisateur

[blendman]

salut

Dans certaines de mes applications, j'aimerai faire des sauvegardes (pref, etc...) dans le dossier utilisateur, histoire de partager ça entre les différentes versions sans devoir toujours réinstaller nos préférences ou d'autres options ^^.

Par exemple :
C:\Users\NOM_UTILISATEUR\AppData\Local\

Vous sauriez comment on peut le nom de l'utilisateur et le dossier AppData\Local\ ?
Est-il toujours sur C:\ ?

Merci

[case]

%userprofile%\AppData\Local\

[GallyHC]

Bonjour,

Avec un truc comme cela, je penses que tu peux trouvais ton bonheur.

Code : Tout sélectionner

Procedure.s GetSystemFolder(lvalue.l)
; ROUTINE DE RECHERCHE DES PATHS DU SYSTEME.
  Protected sfolder.s
  Protected *itemid.ITEMIDLIST = #Null

  If SHGetSpecialFolderLocation_(0, lvalue, @*itemid) = #NOERROR
    sfolder = Space(#MAX_PATH)
    If SHGetPathFromIDList_ (*itemid, @sfolder)
      If Right(sfolder, 1) <> "\"
        sfolder + "\"
      EndIf
      ProcedureReturn sfolder
    EndIf
  EndIf

EndProcedure

For i=0 To 256
  Debug Str(i) + " - " + GetSystemFolder(i)
Next i

Cordialement,
GallyHC

[blendman]

Sinon, j'ai testé ça, ça a l'air de marcher :

Code : Tout sélectionner

Debug  GetHomeDirectory() +"AppData\Local\"

Qu'en pensez-vous ?

[Bernie]

Pourquoi le mettre AppData\Local\?

il suffit de le mettre dans
C:\Users\NOM_UTILISATEUR\Documents


si le mets dans AppData\Local\ le répertoire est caché par défaut

[Marc56]

GetHomeDirectory() te donnera la racine du répertoire utilisateur quelque soit le disque ou le nom.
C'est ça qui doit te servir de base.
Pour connaître les autres variables, tapes SET dans une fenêtre dos.

Oups je n'avais pas vu que tu as déjà trouvé la réponse

Local c'est pour les données qui restent sur le disque local
Roaming c'est si tu veux que les données soient accessibles via un éventuel reseau
Programme data c'est pour les données du programme lui même indépendament de l'utilisateur

[cage]

Bonjour,

Une petite procédure que j'utilise si besoin.

Code : Tout sélectionner

Procedure getEnviron()
  Global AllUsersProfile$       = GetEnvironmentVariable("AllUsersProfile")
  Global AppData$               = GetEnvironmentVariable("AppData")
  Global CommonProgramFiles$    = GetEnvironmentVariable("CommonProgramFiles")
  Global CommonProgramFilesX86$ = GetEnvironmentVariable("CommonProgramFiles(x86)")
  Global CommonProgramW6432$    = GetEnvironmentVariable("CommonProgramW6432")
  Global ComputerName$          = GetEnvironmentVariable("ComputerName")
  Global HomeDrive$             = GetEnvironmentVariable("HomeDrive")
  Global HomePath$              = GetEnvironmentVariable("HomePath")
  Global LocalAppData$          = GetEnvironmentVariable("LocalAppData")
  Global ProgramData$           = GetEnvironmentVariable("ProgramData")
  Global ProgramFiles$          = GetEnvironmentVariable("ProgramFiles")
  Global ProgramFilesX86$       = GetEnvironmentVariable("ProgramFiles(x86)")
  Global ProgramW6432$          = GetEnvironmentVariable("ProgramW6432")
  Global PUBLIC$                = GetEnvironmentVariable("PUBLIC")
  Global SystemDrive$           = GetEnvironmentVariable("SystemDrive")
  Global SystemRoot$            = GetEnvironmentVariable("SystemRoot")
  Global TEMP$                  = GetEnvironmentVariable("TEMP")
  Global TMP$                   = GetEnvironmentVariable("TMP")
  Global Username$              = GetEnvironmentVariable("USERNAME")
  Global UserProfile$           = GetEnvironmentVariable("UserProfile")
  Global Windir$                = GetEnvironmentVariable("windir")

  Global System32$ = SystemRoot$ + "\System32\"
  
  Global etcHosts$   = System32$ + "drivers\etc\hosts"
  Global etcLmhosts$ = System32$ + "drivers\etc\lmhosts"

  If ProgramFilesX86$ = #Null$
    ProgramFilesX86$ = ProgramFiles$
  EndIf
EndProcedure ; getEnviron()

[Ar-S]

+1 cage

[blendman]

Merci Cage pour ta procédure

Edit : en regardant, j'ai vu qu'on pouvait facilement les obtenir avec :

Code : Tout sélectionner

If ExamineEnvironmentVariables()
    While NextEnvironmentVariable()
      Debug EnvironmentVariableName() + " = " + EnvironmentVariableValue()
    Wend
  EndIf