Discussion :

[DanielB]

Bonjour,
Je voudrais écrire dans un fichier situé dans le répertoire de stockage des données, je ne peux pas écrire le chemin en dur puisqu'il est différent en fonction des versions de Windows (c:\programData\, Documents and Settings\All Users\applications data...). Comment puis-je trouver le chemin de ces fichiers.
Par avance merci

[DAUDET78]

Tu utilises le composant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DrivelistBox

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DirListBox

pour choisir le répertoire. Ensuite, tu le mémorises dans la base de registre ou un fichier .INI pour les prochains lancement du programme

[ProgElecT]

Salut

Peut être aussi en utilisant CheminData = Environ("ProgramData")qui donne une reponse différente d'un OS à un autre.

[hackoofr]

en vbscript :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim WS,AppData
 Set WS = CreateObject("WScript.Shell")
 AppData = WS.SpecialFolders("AppData")
 Msgbox AppData

[DanielB]

Merci pour vos réponses. Je veux que le chemin soit déterminé sans choix par l'utilisateur. Par ailleurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CheminData = Environ("ProgramData")

ne me donne rien ? J'ai essayé le code de hackoofr qui fonctionne bien. Seulement je voudrais avoir le dossier pour tous les utilisateurs du système alors j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim WS,AllUsersAppData
 Set WS = CreateObject("WScript.Shell")
 AllUsersAppData= WS.SpecialFolders("AllUsersAppData")
 Msgbox AllUsersAppData

qui ne marche pas, quel serait le bon code ? Par avance merci

[ProgElecT]

Salut

Dans une fenêtre DOS, taper Set, avec VB6 Environ("NomVariable")renvoi la valeur de la variable d'environnement utilisé dans l'OS.
Tu trouveras peut être ton bonheur, mais il te faut choisir une/des variables d'environnement qui puisse être présente dans tous les OS.
Dans l'exemple proposé de mon post précédant, la variable ProgramData ce retrouve sur les 15 ordinateurs du parc de mon entreprise bien que 5 OS soient différents.