1 pièce(s) jointe(s)
Problème sur mon Codage de lecture et d'écriture dans un fichier texte
Bonjour à tous.
Avant toutes choses, je developpe sous VB avec VS2015.
Dans mon projet, à l'ouverture du programme, l'application doit lire dans un fichier texte le chemin du répertoire de travail par default.
Initialement, ce fichier n'existe pas, donc je doit le créer (Création d'un fichier text vide dans le repertoire racine de l'application, donc dans mes tests dans "C:\blabla...blabla\MonApllication\bin\Release\" ?)
Le fichier ce créer sans problement (Fichier Texte vide donc)
Dans une routine accéssible par un menu, je choisi se répertoire et je l'écris dans ce fichier. Tout ca se passe sans probléme. Après la routine, le fichier en question contien bien le répertoire de travail choisi.
Pour conclure mon test, je souhaite relancer directement l'exutable prèsent dans le repertoire "C:\blabla...blabla\MonApllication\bin\Release\"
Et la j'ai une Erreur d'éxécution
Pièce jointe 383454
Lorque je relance mon application directement en mode test sous VS2015, le fichier présent dans le repertoire "Release" est tout simplement ignorer.
Voici mon codage :
Déclaration dans Public Class Winprincipal
Code:
Dim FichierDefault, FichierClient As IO.FileStream
Procedure au lancement de l'application
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Sub WinPrincipal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim DossierClientDefault As String
Dim ContenuFichier(1024) As Byte
'Initialisation du dossier client
TB_DossierClient.Text = ""
DossierClientDefault = TB_DossierClient.Text
'Création ou ouverture du fichier de donnée standard
FichierDefault = New IO.FileStream("DataAstralook.txt", IO.FileMode.OpenOrCreate)
'Lire le contenu du fichier
FichierDefault.Position = 0
FichierDefault.Read(ContenuFichier, 0, 2014)
'Attribu à la variable par default et affiche le contenu
For Each Lettre As Byte In ContenuFichier
DossierClientDefault += Chr(Lettre)
Next
TB_DossierClient.Text = DossierClientDefault
End Sub |
Routine de la sélection du dossier de travail et enregistrement de ce paramétre dans le fichier
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Private Sub Menu_DossierClient_Click(sender As Object, e As EventArgs) Handles Menu_DossierClient.Click
'Dim ContenuFichier As String
Dim ContenuFichier(1024) As Byte
Dim i As Integer = 0
'Sélection du dossier client.
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
TB_DossierClient.Text = FolderBrowserDialog1.SelectedPath
End If
'Ecriture du dossier par default dans le fichier DossierClientDefault
For Each Lettre As Char In TB_DossierClient.Text.ToCharArray
ContenuFichier(i) = Asc(Lettre)
i += 1
Next
FichierDefault.Position = 0
FichierDefault.Write(ContenuFichier, 0, i)
End Sub |
Je tourne en rond depuis hier soir sur cette erreur. Je suis sur que c'et idiot, mais qq1 peux m'aider ?
Cdt
