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.

[hackoofr]

Dans la ==> Comment lister les dossiers spéciaux de Windows ?
Liste des dossiers spéciaux de Windows disponibles :

• AllUsersDesktop
• AllUsersStartMenu
• AllUsersPrograms
• AllUsersStartup
• Desktop
• Favorites
• Fonts
• MyDocuments
• NetHood
• PrintHood
• Programs
• Recent
• SendTo
• StartMenu
• Startup
• Templates

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Dim Titre,LogFile,WS,AppData,MonTableau,i,DossierSpecial,MesDossierspeciaux
Titre = "Les dossiers spéciaux de Windows"
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
Set WS = CreateObject("WScript.Shell")
MonTableau = Array(_
"AllUsersDesktop",_
"AllUsersStartMenu",_
"AllUsersPrograms",_
"AllUsersStartup",_
"Desktop",_
"Favorites",_
"Fonts",_
"MyDocuments",_
"NetHood",_
"PrintHood",_
"Programs",_
"Recent",_
"SendTo",_
"StartMenu",_
"Startup",_
"Templates")
MesDossierspeciaux = ""
For i = LBound(MonTableau) To UBound(MonTableau)
    DossierSpecial = WS.SpecialFolders(MonTableau(i))
    MesDossierspeciaux = MesDossierspeciaux & DossierSpecial & vbCrLf & vbCrLf
    Msgbox DossierSpecial,64,Titre
Next
MsgBox MesDossierspeciaux,64,Titre
Call WriteLog(MesDossierspeciaux,LogFile)
WS.Run LogFile
 
Sub WriteLog(strText,LogFile)
    Dim fs,ts 
    Const ForWriting = 2
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(LogFile,ForWriting,True)
    ts.WriteLine strText
    ts.Close
End Sub

[DanielB]

Merci pour vos messages.
hackoofr, ton code me donne bien la liste des dossiers spéciaux. Pour déterminer le chemin du dossier de stockage des données, j'ai utilisé en définitive

Code :

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

Environ("ALLUSERSPROFILE")

Il faut noter que les variables d'environnement ne sont pas toutes identiques entre XP et les versions ultérieures de Windows. J'ai une question qui concerne l'accès à un fichier texte stocké dans le dossier des data par des utilisateurs ayant des droits différents. Je vais créer un nouveau post et je marque "Résolu" pour celui-ci.