Discussion :

[CLeBeR]

Bonjour,
je souhaite exporter un fichier texte qui se trouve dans les ressources de mon programme, vers le dossier documents. J'ai donc crée ce code :

Code :

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

        My.Computer.FileSystem.CopyFile(My.Resources.ListeDeMots, "C:\Users\" & System.Environment.UserName & "\Documents\ListeDeMots.txt")

Cependant, lors de la copie du fichier, j'ai cette erreur :

Code :

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

Caractères non conformes dans le chemin d'accès.

Je ne comprends pas car pourtant, mon chemin de destination est bien une chaine de caractère ?
J'ai en plus essayé plusieurs codes mais j'ai toujours la même erreur.
Merci.

[wallace1]

Code :

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

1
2
 
System.IO.File.WriteAllBytes(My.Resources.ListeDeMots, "C:\Users\" & System.Environment.UserName & "\Documents\ListeDeMots.txt")

[CLeBeR]

Bonjour wallace1,
je ne peux pas exporter mon fichier car il est "Impossible de convertir une valeur de type 'String' en 'Tableau à 1 dimension(s) de Byte'", j'avais déjà essayé ce code qui m'avait servi un jour.

[wallace1]

Alors essayes avec :

Code :

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

System.IO.File.WriteAllText("C:\Users\" & System.Environment.UserName & "\Documents\ListeDeMots.txt", My.Resources.ListeDeMots)

Bonne soirée.

[clementmarcotte]

Bonjour,

Il existe un certain nombre de caractères interdits dans les noms de dossiers. Je ne les ai pas tous en mémoire, mais il y a le tiret.

Entre nous deux et la boîte à bois, je me demande si tu ne sautes pas une étape. Je pense, qu'une fois que tu as récupéré le nom de l'utilisateur, tu dois récupérer son "Mes Documents" à lui, avant de compléter le chemin d'accès. Quand plusieurs personnes partagent un ordinateur; chacun a son propre dossier "Mes Documents", son propre dossier TEMP, son propre dossier "Progam Files" et quelques autres comme cela.

[CLeBeR]

Ton deuxième code ne fonctionne pas wallace ( je l'avais essayé aussi )

Clément, est-ce que les accents comptent ? (Car je m'appelle Clément aussi et du coup il y a un accent dans "mon ursername".
Cependant, je ne crois pas que ce soit le problème car j'ajoute le contenu de ce même fichier dans un listbox avec le même chemin et ça fonctionne très bien.

Code :

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

1
2
3
        For Each lLigne As String In File.ReadAllLines("C:\Users\" & System.Environment.UserName & "\Documents\ListeDeMots.txt")
            ListBoxMots.Items.Add(lLigne)
        Next

[wallace1]

Autant le WriteAllbytes ne fonctionne pas je te l'accorde mais autant chez moi le WriteAllText fonctionne parfaitement .....

Pourrais-tu nous donner un aperçu du contenu de ton fichier .txt embarqué dans tes resources stp ??

PS : le chemin n'est pas en cause c'est certain .

[CLeBeR]

C'est une liste de mots ou de sites selon le fichier, par exemple :

Code :

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

1
2
3
4
 
Mot 1
Mot 2
Mot 3

[wallace1]

lol ...

et le contenu de mon fichier de test :

Code :

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

1
2
3
4
5
6
Bla bla bla
bla blahuqiuhlqkdsnqd
faqfqgv;nq,qf
ef
qf
vdxvxvx cv

As-tu modifiés les propriétés de ton fichier embarqué dans tes resources ??

Voilà le paramétrage du mien :

[CLeBeR]

wallace autant pour moi ! Ton code précédent fonctionne très bien, c'est juste que j'ai mal lu la ligne où il y avait l'erreur (car j'ai plusieurs fichiers à placer ! )

Code :

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

System.IO.File.WriteAllText("C:\Users\" & System.Environment.UserName & "\Documents\ListeDeMots.txt", My.Resources.ListeDeMots)

Merci pour ton code !
PS : Les propriétés sont les mêmes :p

[shayw]

Salut

Après plus de deux heures à chercher la cause du bug
j'ai trouvé
My.Resources.ListeDeMots n'est pas le path mais le contenu du fichier
ListdeMots

si tu écris le code suivant

Code :

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

1
2
3
 Dim str As String
        str = My.Resources.ListeDeMots
       My.Computer.FileSystem.CopyFile(str, "C:\Users\" & System.Environment.UserName & "\Documents\ListeDeMots.txt")

tu verras que str = mot1 mot2 mot3 ce qui amène à l'erreur
caractères non conformes dans le chemin d'accès.
donc ce qu'il faut écrire le path de My.Resources.ListeDeMots