Discussion :

[ICyam]

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

Code :

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

 Dim FichierDefault, FichierClient As IO.FileStream

Procedure au lancement de l'application

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

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

[ICyam]

Oui, c'était IDIOT et j'ai corrigé l'exception...

Mais je vais profiter de cette discussion pour poser une autre question.

Pourquoi lorsque je relance mon application directement depuis Release, "TB_DossierClient.Text" ne m'affiche pas le répertoire par default, Erreur de lecture dans le fichier ?