Utilisation de Application.StartupPath

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

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

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

Code:

---

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

---

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

Merci.

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.

Salut,

Juste pour être sur, quand tu dis :

Dim path As String = Application.StartupPath()

Tu fais bien

path &= "\Write440.txt" ensuite ?

a+

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

Code:

---

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:

---

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à. ;)

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 :lol: