J'ai une petite question à propos de créer un fichier texte sans utiliser la SaveFileDialog.
Qu'est ce qui me manque pour que mon code fonctionne pour créer le fichier Tempo.txt
SaveFile =
"\SD Card\Calcul\Tempo.txt"
Dim Sr
As
New StreamWriter(SaveFile,
False)
Sr.Flush()
Sr.Close()
J'utilise ce code pour effacer une ligne de texte dans un fichier - Tableau et ca génère un erreur.... Je ne peux tester cette partie de code dans le Debug
Private
Sub cmdEffacer_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles cmdEffacer.Click
Dim ObjetFichier
As StreamReader =
New StreamReader(FichierSave)
Dim ObjetFichierW
As StreamWriter =
New StreamWriter(AppPathTempo &
"\Tempo.txt",
False)
Do
While ObjetFichier.Peek <> -1
FichierTexte = ObjetFichier.ReadLine()
If txtEfface.Text <> FichierTexte.Split(Separateur)(0)
Then
ObjetFichierW.WriteLine(FichierTexte)
ObjetFichierW.Flush()
End
If
Loop
ObjetFichierW.Close()
ObjetFichier.Close()
IO.File.Delete(FichierSave)
SaveFile = "\SD Card\Calcul\Tempo.txt"
Dim Sr
As
New StreamWriter(SaveFile,
False)
oui c'est vrai je n'y avais même pas pensé.... OUPS....
Sauf que ca me génère un erreur:
Conversion from string "\Program Files\DataGrid\Coord.txt" to type Boolean is not valid
???????
Dim ObjetFichier As StreamReader = New StreamReader(FichierSave)
Dim ObjetFichierW As StreamWriter = New StreamWriter(AppPathTempo & "\Tempo.txt", False)
DoWhile ObjetFichier.Peek <> -1
FichierTexte = ObjetFichier.ReadLine()
If txtEfface.Text <> FichierTexte.Split(Separateur)(0)
Then
ObjetFichierW.WriteLine(FichierTexte)
ObjetFichierW.Flush()
End
If
Loop
Ca dit que File. Copy peut-être soit String, String (Il n'est pas permis de substituer un fichier du même nom)
Ou String, String , Boolean (Il est permis de substituer un fichier du même nom.)
Encore moi...
Ce que je ne saisi pas du code c'est la ligne de code Gras et Souligné... Fait que ca l'écrit dans le fichier ...Tempo. txt mais le fichier n'existe pas... Normal... que ca bug plus bas ?
Private
Sub cmdEffacer_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles cmdEffacer.Click
Dim ObjetFichier
As StreamReader =
New StreamReader(FichierSave)
Dim ObjetFichierW
As StreamWriter =
New StreamWriter(AppPathTempo &
"\Tempo.txt",
False</gras> )
Do
While ObjetFichier.Peek <> -1
FichierTexte = ObjetFichier.ReadLine()
If txtEfface.Text <> FichierTexte.Split(Separateur)(0)
Then
ObjetFichierW.WriteLine(FichierTexte)
ObjetFichierW.Flush()
End
If
Loop
ObjetFichierW.Close()
ObjetFichier.Close()
IO.File.Delete(FichierSave)
IO.File.Create(AppPathTempo &
"\Tempo.txt")
IO.File.Create(FichierSave)
"\Tempo.txt", FichierSave,
False) IO.File.Delete(AppPathTempo & "\Tempo.txt")