VB.Net IO.File.Copy

Question

Salut à tous...
Le code plus bas fonctionne correctement mais j'ai seulement un problème...
Je m'explique...
Dans mon application j'ouvre un fichier texte.
Dans ce fichier je peux supprimer des lignes et à chauqe fois que je supprime une ligne je passe par le code plus bas.
Le problème est que tout fonctionne correctement sauf que je ne suis plus capable d'ouvrir le fichier.
Comme si mon fichier était vide.
Mais il ne l'ait pas il contient toutes les lignes sauf elle qui a été supprimé.
Voyez-vous pourquoi je ne suis plus capable d'ouvrir ce fichier ???
Le prob. provient du code plus bas ?

Merci de votre aide

Try
IO.File.Delete(FichierSave) 

IO.File.Copy(AppPathTempo & 
"\Tempo.txt", FichierSave, 
False) 

IO.File.Delete(AppPathTempo & 
"\Tempo.txt") 

Catch ex 
As IOException
MsgBox(
"Erreur dans le remplacement du fichier de sauvegarde:" & ex.Message)

End
Try

cs_Willi · Answer

Bonsoir,
As-tu une exception IO de levée ? car la aucun soucis dans le code que tu nous donnes, tu supprimes A, copies B en A, supprimes B.
Peux-tu poster le code que tu utilises pour ouvrir ton fichier texte et le reste. (Le problème vient surement de là tu supprimes recopies dans A/B alors que tu as ouvert l'un des deux avant pour lire les lignes que vous souhaitez supprimer).

++

cs_JeffC1977 · Answer

Salut Willi
Je tient à mentioner que le code que j'annexe fonctionne correctement pour ouvrir des fichier que je n'ai pas modifier avec le code dans mon précédent message. Je te mets en Gras souligne la partie qui bug...

Merci de ton aide

Dim

 ObjetFichier 
As StreamReader = 
New StreamReader(NomDuFichier)

Dim Message 
As
StringPictureBox1.Image = 
New System.Drawing.Bitmap(PictureBox1.Width, PictureBox1.Height)
Picturebox1_Graphics = System.Drawing.Graphics.FromImage(PictureBox1.Image)
FichierSave = NomDuFichier

Try
Do
FichierTexte =  ObjetFichier.ReadLine()

<gras> If Compteur = 0 
And FichierTexte 
Is
Nothing
 Then
MsgBox(
"Fichier Vierge")

GoTo Fin

ElseIf FichierTexte  = 
""
Then
'Ligne vierge donc saute cette ligne
Else
... Traitement du fichier .....
End
If
Loop
Until FichierTexte 
Is
Nothing
ObjetFichier.Close()

cs_JeffC1977 · Answer

J'ai trouvé merci quand même

VB.Net IO.File.Copy

3 réponses

Votre réponse

Discussions similaires