écrire à la 1ère ligne d'un fichier.

Voilà
soit un fichier texte.text

contenant le text:

a
b
c


je veux écrire la lettre d avant le a.

Comment faire?

Open App.Path & "\texte.txt" For Append As #1
Write #1, "debut"
Close #1

mais append va à la dernière ligne alors, je sais pas...

Merci d'avance...

Voilà une piste de travail. Projet sous VB5, ne nécessite qu'une form et un fichier nommé test.txt contenant des données (ton fichier texte.txt)

Private Sub Form_Load() '----- Le processus est relativement simple, dans un premier temps '----- on ouvre un fichier dans lequel on place les données qui devront '----- figurer au début. Puis on ouvre l'ancien fichier que l'on merge au '----- premier (ses données seront placées à la fin). On efface le second '----- fichier, on renomme le premier en lui donnant le nom du second fichier. '----- Déclaration des variables locales Dim NumFicDest As Long Dim NumFicSrc As Long Dim MonFic As String Dim MonFicDest As String Dim Msg As String '----- Initialisation des variables locales MonFic = "c:\temp\Test1.txt" MonFicDest = "c:\temp\test.txt" '----- Ouverture des fichiers NumFicSrc = FreeFile Open MonFic For Output As NumFicSrc '---> le fichier à renommer NumFicDest = FreeFile Open MonFicDest For Input As NumFicDest '---> le fichier existant '----- Ecriture dans les fichiers '---> On ajoute les données qui doivent figurer au début Print #NumFicSrc, "Début" '---> A partir de là, on merge les données de l'ancien fichier dans le nouveau Do While Not (EOF(NumFicDest)) Line Input #NumFicDest, Msg Print #NumFicSrc, Msg Loop '----- Fermeture des fichiers Close NumFicSrc Close NumFicDest '----- Manipulation des fichiers Kill MonFicDest Name MonFic As MonFicDest End Sub

@+