Comment trouvé le dossier (Program Files) de Windows

Bonjour,

Je voudrais savoir si ya des patchs pour mettre des fichiers dans le dossier Program Files de windows xp home

Car quand je sauvegarde avec mon programme je voudrais qui s'ajoute dans le dossier sans que la personne ne le face.

Savez vous comment faire ceci ?

j'ai tester ceci:

Code:

---

Dim Flux As New StreamWriter(Application.StartupPath & "..\Program Files\etconfig.conf", False)

---

Mais ca ne marche pas

Merci a vous

Cordialement,

J'ai pas compris tu veux sauvegarder un fichier dans le dossier program files ? Alors pourquoi mettre application.StartupPath ?

Tu mets : "C:\Program Files\Config.ext" ...

Si tu parles lorsque le programme sera installé sur le PC distant, effectivement tu ne sera pas la lettre de son lecteur... Dans ce cas la, tu fais :

Code:

---

Dim Path as String = Application.StartupPath & "\config.ext"

---

Voila ca ne sera pas dans Program Files mais c'est pas un probleme.

Sinon avec des API on peut trouver le répertoire Program Files je pense ;)

Re,

Le problème c'est si je fait comme ca le fichier se save a l'endroit ou il y a le programme exemple si je le fait depuis le bureau il se save sur le bureau

je voudrais que le fichier se save dans le dossier du jeu en question (Wolfenstein Enemy Territory)
c'est pour éviter que la personne ne le face lui meme que ca soit automatique.

mais bon si ya que cette solution je vais faire avec :)

Merci pour ton aide.

Cordialement,

Peux tu poster le code pour ceux qui ont le meme probleme que toi ?

Il faut partager ses trouvailles !

Bonsoir,

Donc voila je donne le code si une personne le cherche le voila :)

Fichier Form1.vb

Code:

---

1 2 3 4 5 6 7 8

PrivateSub B_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Save.Click Dim Flux AsNew StreamWriter(Application.StartupPath & "\etconfig.conf", False) 'crée un fichier etconfig.conf Flux.Write(RTB.Text) 'écrit les données dans un .txt ou autre Flux.Close() 'ferme le fichier MsgBox("Configuration Réussi") 'Message de confirmation EndSub

---

Fichier Form1.Designer.vb

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Me.B_Save.BackColor = System.Drawing.Color.Transparent Me.B_Save.Cursor = System.Windows.Forms.Cursors.Hand Me.B_Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.B_Save.ForeColor = System.Drawing.Color.Black Me.B_Save.Location = New System.Drawing.Point(55, 264) Me.B_Save.Name = "B_Save" Me.B_Save.Size = New System.Drawing.Size(147, 23) Me.B_Save.TabIndex = 2 Me.B_Save.Text = "Titre du Bouton" 'Le titre sur le bouton Me.B_Save.UseVisualStyleBackColor = False

---

Attention suivant l'installation de votre application le fichier peut etre save dans le dossier de l'installation ou sur votre bureau.

Voila si vous avez des questions n'hésitez pas mon script marche tres bien chez moi :)

Cordialement,

Merci de ta participation :)