Discussion :

[greg26]

Bonjour à tous,

Pour le projet que je suis entrain de réaliser, je dois créer des fichiers texte.
Le problème c'est que le chemin que j'indique pour créer le fichier marche que pour l'ordinateur ou je suis, si je met le .exe sur un autre ordi ca sera pas la meem chemin.
Comment faire pour que je crée un fichier texte dans le meme dossier lors de l'installation de mon programme sur un ordinateur?
merci d'avance

[TrEiZe85]

Solution en C#...

Il y a un topic qui tratie de cela sur le forum a toi de chercher je ne sai plus ou il est !

cela doit pouvoir t'aider :

Code :

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

path=Application.StartupPath;

Et utiliser la reference :

Code :

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

using System.Windows.Forms;

Ceci te donne la racine du .exe sur la machine..

Bonne coninuation !

[greg26]

je bosse en VB2005 mais je vais essayer d'adapter ta solution doit pas y avoir grand chose qui change. merci
@ +

[wortmy]

boujour,

oui en VB c'est identique :

Code :

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

Application.StartupPath

wortmy

[greg26]

Alors voila je viens d'essayer ça:

Code :

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

1
2
3
4
5
6
Dim RepertoireExe = Application.StartupPath
 If (File.Exists(".RepertoireExe\MonFichier.txt") = True) Then
''''''''''
 ElseIf (File.Exists(".RepertoireExe\MonFichier.txt") = false) Then
''''''''''''''
EndIf

J'ai mis mon fichier texte dans ... bin --> debug de mon projet
Mais ca marche pas.
je pense que j'ai pas bien déclaré le paramètre de file.exists non?
merci de votre aide
edit: merci aussi wortmy j'avais pas vu ton message

[wortmy]

essaye plutot ca :

Code :

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

1
2
3
4
5
6
Dim RepertoireExe = Application.StartupPath
 If (File.Exists(RepertoireExe & "\MonFichier.txt") = True) Then
''''''''''
 ElseIf (File.Exists(RepertoireExe & "\MonFichier.txt") = false) Then
''''''''''''''
EndIf

wortmy

[greg26]

essaye plutot ca :

Code :

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

1
2
3
4
5
6
Dim RepertoireExe = Application.StartupPath
 If (File.Exists(RepertoireExe & "\MonFichier.txt") = True) Then
''''''''''
 ElseIf (File.Exists(RepertoireExe & "\MonFichier.txt") = false) Then
''''''''''''''
EndIf

wortmy

.

merci excellent ca marche
@ bientot et encore merci
edit: TrEiZe85, ouai ca ma semblait bizarre qu'il ne faille pas le "." mais bon ca marche sans alors...

[TrEiZe85]

Le "." devant .RepertoireExe 'est neccesaire je pense...

Perso en c# ca a la forme

Code :

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

path+"/logs/logsMySQL.log"

Mais je n'utilise pas de File.Exists()

[wortmy]

Le "." devant .RepertoireExe 'est neccesaire je pense...

Perso en c# ca a la forme

Code :

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

path+"/logs/logsMySQL.log"

Mais je n'utilise pas de File.Exists()

tu peux faire comme ca aussi il me semble

Code :

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

1
2
3
4
5
6
7
 
Dim RepertoireExe = Application.StartupPath
 If (File.Exists(RepertoireExe + "\MonFichier.txt") = True) Then
''''''''''
 ElseIf (File.Exists(RepertoireExe + "\MonFichier.txt") = false) Then
''''''''''''''
EndIf

et pour le . je crois qu'avec vb on l'utilise lorsque la chaine de caractere est sur plusieures ligne ( à confirmé )

wortmy