Discussion :

[Arnaud Malabeux]

Bonjour

Dans mon programme, j'utilise un fichier .txt où je stock des valeurs.
dans mon exe je vérifie si le fichier a été crée si non je le créé avec
File.CreateText(path)
je souhait que txt soit mis dans le même répertoire que l'exe donc :
Dim path As String = Application.StartupPath

lorsque je lance mon exe (installé dans c:\essais) , microsoft.net Framework m'annonce que l'accès au chemin c:\essais est refusé ????

lorsque je regarde les propriétés de mon répertoire essais il est en lecture seul et si je le met en accès autorisé, dès le lancement de mon exe il repasse en lecture seul ??

pouvez vous m'aider ?

merci

[hellspawn_ludo]

C'est bizarre, chez moi ça fonctionne bien.

Voilà le code que j'ai mis dans un bouton pour tester :

Code :

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

1
2
 
IO.File.CreateText("c:\ludo.txt")

Tu peux mettre le code de creation de ton fichier (la fonction, la procédure...) ?

Merci.

[Arnaud Malabeux]

Mon code :

si Dim path As String = Application.StartupPath ==> accès refusé

si Dim path As String = "c:\DD440\Write440.txt" ==> Ok si et seulement si le répertoire existe

Using sw As StreamWriter = File.CreateText(path)
sw.WriteLine("K=1024 T=32")
sw.Close
End Using

C'est Application.StartupPath qui me pose problème et qui pourtant devrais me permètre de ne pas tenir compte de l'endroit où va être installé l'exe.

[Kiboumz]

Salut,

Juste pour être sur, quand tu dis :

Dim path As String = Application.StartupPath()

Tu fais bien

path &= "\Write440.txt" ensuite ?

a+

[hellspawn_ludo]

Ce code fonctionne nickel à partir du moment ou le dossier existe effectivement :

Code :

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

1
2
3
4
5
6
7
 
Dim path As String = Application.StartupPath
 
Using sw As System.IO.StreamWriter = IO.File.CreateText(path & "\Write440.txt")
sw.WriteLine("K=1024 T=32")
sw.Close()
End Using

Si tu veux le mettre dans un répertoire bien spécifique, le code suivant cré un dossier.

Code :

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

1
2
 
        IO.Directory.CreateDirectory(Application.StartupPath & "\MonNouveauDossier")

Avant de créer ton fichier, vérifie en 1er lieu si ton dossier existe.
S'il n'existe pas, cré-le.
Ensuite tu récupères le chemin du dossier nouvellemtn créé et tu le stocke dans ta variable PATH.
Après cela, tu pourras utiliser le 1er code que j'ai mis en haut dans ce message.

Et voilà.

[Arnaud Malabeux]

Ok
j'avais oublié de nom de mon fichier

mon code fonctionnel (répertoire existant ou non)
Dim path As String = Application.StartupPath & My.Resources.NomRepertoire

If File.Exists(path & My.Resources.NomFichier) Then
' je fais ce que j'ai à faire
else 'création du répertoire et du fichier avec valeur bidon dedans
IO.Directory.CreateDirectory(path)
Using sw As StreamWriter = File.CreateText(path & My.Resources.NomFichier)
sw.WriteLine("K=1023 T=31")
sw.Close()
End Using

end if

Merci à tous