Discussion :

[kazylax]

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 :

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

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

Mais ca ne marche pas

Merci a vous

Cordialement,

[Aspic]

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 :

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

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

[kazylax]

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,

[Aspic]

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

Il faut partager ses trouvailles !

[kazylax]

Bonsoir,

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

Fichier Form1.vb

Code :

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

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 :

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

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,

[Aspic]

Merci de ta participation