VB.Net Créer un Fichier texte sans SavefileDialog

Salut à tous..

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 AsNew 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)
DoWhile ObjetFichier.Peek <> -1
   FichierTexte = ObjetFichier.ReadLine() 
   If txtEfface.Text <> FichierTexte.Split(Separateur)(0) Then
      ObjetFichierW.WriteLine(FichierTexte)
      ObjetFichierW.Flush()
   EndIf
Loop

ObjetFichierW.Close()
ObjetFichier.Close()
IO.File.Delete(FichierSave)
SaveFile = "\SD Card\Calcul\Tempo.txt"
Dim Sr AsNew StreamWriter(SaveFile, False)
Sr.Flush()
Sr.Close()
IO.File.Copy(AppPathTempo & "\Tempo.txt", False, FichierSave)
IO.File.Delete(AppPathTempo & "\Tempo.txt")
EndSub

Je ne comprend pas bien ce que souhaite faire  avec ce code ?

SaveFile = "\SD Card\Calcul\Tempo.txt"
Dim Sr AsNew StreamWriter(SaveFile, False)
Sr.Flush()
Sr.Close()

Si c'est pour créer un fichier vierge pourquoi ne pas utilisé :
System.IO.File.Create()




IO.File.Delete(FichierSave)

IO.File.Copy(AppPathTempo & "\Tempo.txt", False, FichierSave)
IO.File.Delete(AppPathTempo & "\Tempo.txt")

IO.file.Create(AppPathTempo & "\Tempo.txt")
EndSub

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()
   EndIf
Loop

ObjetFichierW.Close()
ObjetFichier.Close()
IO.File.Delete(FichierSave)
IO.File.Create(AppPathTempo & "\Tempo.txt")
IO.File.Copy(AppPathTempo & "\Tempo.txt", False, FichierSave)
IO.File.Delete(AppPathTempo & "\Tempo.txt")
EndSub

http://msdn2.microsoft.com/fr-fr/library/system.io.file.copy(VS.80).aspx
IO.File.Copy(AppPathTempo & "\Tempo.txt",FichierSave,False)

-

Ca dit quoi ce lien je ne comprend rien...

Je ne vois pas comment corriger l'erreur...

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

Merci encore

ok cool ca "fonctionne"...

Sauf que j'ai un autre erreur... Ca dit que c'est impossible car MonFichier.txt is being used by another process

Existe-t-il une facon de corriger ce prob ???

J'utilise une ligne de code pour supprimer le fichier et ca fonctionne pas.....

IO.File.Delete(FichierSave)
IO.File.Create(AppPathTempo &

"\Tempo.txt")
IO.File.Create(FichierSave)
IO.File.Copy(AppPathTempo & "\Tempo.txt", FichierSave, False)
IO.File.Delete(AppPathTempo & "\Tempo.txt")

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 ?

PrivateSub 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)
DoWhile ObjetFichier.Peek <> -1
FichierTexte = ObjetFichier.ReadLine()If txtEfface.Text <> FichierTexte.Split(Separateur)(0) Then
ObjetFichierW.WriteLine(FichierTexte)
ObjetFichierW.Flush()
EndIf
Loop
ObjetFichierW.Close()
ObjetFichier.Close()
IO.File.Delete(FichierSave)
IO.File.Create(AppPathTempo & "\Tempo.txt")
IO.File.Create(FichierSave)
IO.File.Copy(AppPathTempo & "\Tempo.txt", FichierSave, False)
IO.File.Delete(AppPathTempo & "\Tempo.txt")
EndSub