Tilføj til Text Fil fra toppen af

Nej, det findes der ikke nogen let måde at gøre. Den eneste mulighed er:

1) Starte med at læse hele finen, linje for linje, ind i et array.
2) Slette filens indhold.
3) Skrive de nye linjer ud.
4) Skrive indholdet fra arrayet ud.

Hvis der er mange linjer i tekstfilen, så kan dette godt være ret tungt at have med at gøre.

1) Indlæs hele filen ind i en variabel (f.eks. "txt")
2) txt = "dit ny indhold i toppen" & txt

3) Skriv til filen, hele variabeln "txt"..

På den måde undgår man at læse linie for linie, da det er meget langsom..

Læs-hel, indsæt ny-text + txt, gem-hel

Ja det er nok bedst at gøre som thesurfer skriver.. fx.

Private Sub Form_Load()
  Call AddTextToTop("Linje " & Now & vbCrLf, "C:\Test.txt")
End Sub

Public Sub AddTextToTop(strText As String, strFilename As String)
Dim bRead() As Byte
Dim nLenght As Long
Dim intFree As Integer
  intFree = FreeFile
  Open strFilename For Binary Access Read Write As #intFree
    nLenght = (LOF(intFree) - 1)
    If nLenght >= 0 Then
      ReDim bRead(nLenght) As Byte
      Get #intFree, 1, bRead
    End If
    Put #intFree, 1, strText
    If nLenght >= 0 Then
      Put #intFree, , bRead
    End If
  Close #intFree
End Sub

Lukketid?