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
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
Procedure au lancement de l'application
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim FichierDefault, FichierClient As IO.FileStream
Routine de la sélection du dossier de travail et enregistrement de ce paramétre dans le fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Je tourne en rond depuis hier soir sur cette erreur. Je suis sur que c'et idiot, mais qq1 peux m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Cdt
Partager