Discussion :

[Benji861905]

Bonjour,
Voila mon code:

Code :

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

1
2
3
4
5
6
7
8
 Dim fileReader As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            fileReader = My.Computer.FileSystem.ReadAllText("C:\Users\" & System.Environment.UserName & "\Documents\My Games\SavGame\lettre.txt")
        If Dir("" & fileReader & ":\SavGame", vbDirectory) = "" Then
            My.Computer.FileSystem.CreateDirectory("" & fileReader & ":\SavGame")
        Else
        End If
End Sub

lettre.txt contiens la lettre E
mon disque dur externe est bien E
est mon erreur est: l'exception win32exception n'a pas été gere / Caractères non conformes dans le chemin d'accès.

la je ne vois pas si quelqu’un pouvais m'aider
merci d'avance

[clementmarcotte]

Bonjour,

Bonjour,
Voila mon code:

Code :

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

1
2
3
4
5
6
7
8
 Dim fileReader As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            fileReader = My.Computer.FileSystem.ReadAllText("C:\Users\" & System.Environment.UserName & "\Documents\My Games\SavGame\lettre.txt")
        If Dir("" & fileReader & ":\SavGame", vbDirectory) = "" Then
            My.Computer.FileSystem.CreateDirectory("" & fileReader & ":\SavGame")
        Else
        End If
End Sub

lettre.txt contiens la lettre E
mon disque dur externe est bien E
est mon erreur est: l'exception win32exception n'a pas été gere / Caractères non conformes dans le chemin d'accès.

la je ne vois pas si quelqu’un pouvais m'aider
merci d'avance

As-tu essayé de mettre un espion sur tes différentes variables et de tester au pas à pas.

Même si cela semble ringard, je préfère prendre plus de lignes que pas assez. Cela facilite le débogage.

Par exemple cette ligne:

Code :

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

 fileReader = My.Computer.FileSystem.ReadAllText("C:\Users\" & System.Environment.UserName & "\Documents\My Games\SavGame\lettre.txt")

je la remplacerais par cela:

Code :

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

1
2
3
4
dim chemin as string
chemin = "c:\users\" & System.Environment.UserName
chemin = chemin &  "\Documents\My Games\SavGame\lettre.txt"
fileReader = My.Computer.FileSystem.ReadAllText(chemin)

Ensuite, en mettant un espion sur chemin et en exécutant au pas à pas, tu peux vérifier et corriger ton chemin d'accès. Tu y perds peut-être un peu de performance, mais tu y gagnes beaucoup en compréhension et en facilité de maintenance.

D'autant plus que ton message d'erreur est (malheureusement) affiché pour un paquet d'erreurs; comme des espaces en trop, des points qui manquent, des barres en trop, des deux-points qui manquent, ou qui sont en trop ou des caractères parasites etc...

Tu peux évidemment continuer d'utiliser la classe String pour bâtir tes chemins d'accès. Mais, le Framework fournit également une classe spécialisée dans les chemins d'accès: la classe IO.Path

[Benji861905]

Merci Pour tes conseille je les suivrais mais par curiosité et envie de découvert je shouaite savoir pourquoi cette ligne de code na pas marcher
en fessant

Code :

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

1
2
3
4
Dim fileReader As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        fileReader = My.Computer.FileSystem.ReadAllText("C:\Users\" & System.Environment.UserName & "\Documents\My Games\SavGame\lettre.txt")
        Label1.Text = "" & fileReader & ":\SavGame"

on vois ceci dans le label 1 :

E
:\SavGame

Comment résoudre cette erreur alors que dans mon .txt le E est correctement mi ? j'ai fait une erreur quelque par ?

[wallace1]

Merci Pour tes conseille je les suivrais mais par curiosité et envie de découvert je shouaite savoir pourquoi cette ligne de code na pas marcher
en fessant

Code :

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

1
2
3
4
Dim fileReader As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        fileReader = My.Computer.FileSystem.ReadAllText("C:\Users\" & System.Environment.UserName & "\Documents\My Games\SavGame\lettre.txt")
        Label1.Text = "" & fileReader & ":\SavGame"

on vois ceci dans le label 1 :

E
:\SavGame

Comment résoudre cette erreur alors que dans mon .txt le E est correctement mi ? j'ai fait une erreur quelque par ?

Bonjour,

Tout a été dit par clementmarcotte, et je rajouterais que nous ne sommes pas ici pour "corriger ta copie" donc comme tu l'as si bien dis plus haut ta curiosité devrait pouvoir faire le reste.

A+

[mactwist69]

Il ne demande pas de corriger la copie, il demande de comprendre quelque chose, ça n'est pas pareil.

A Benji :

Comme tu fais ReadAllTexte, il concatène toutes les lignes en un String. Donc si dans ton fichier il y a une ligne avec E et une ligne vide... Et bien c'est ce que contiendra ta chaîne de caractère. Donc soit tu supprimes la ligne vide dans le fichier, soit tu utilises une autre méthode qui lit ligne par ligne ton fichier, et tu récupère le premier élément (ReadAllLines).

[wallace1]

Il ne demande pas de corriger la copie, il demande de comprendre quelque chose, ça n'est pas pareil.

Alors ne devrait il pas prendre en compte la remarque formulée par clementmarcotte concernant la mise en place d un espion.... afin de mieux comprendre lui meme ses erreurs....
Ce qui m amène a dire que la maitrise de l outil principale qu est l'EDI ne serait pas du luxe avant de se lancer dans le codage...