Neuer Eintrag immer am Anfang der Text-Datei

[Tom2020]

Hallo Zusammen,

ich bräuchte eine kleine Unterstützung!

Es geht um die Zelle B3 dass nach unterschiedlichen Zeiten ein Update bekommt.
Das VBA-Script fügt in memo1.txt einen neuen Eintrag in der letzten Zeile hinzu und nicht am Anfang.

Beispiel:
erstelle eine Text-Datei mit dem Namen in "C:\Test\memo1.txt"
Führe das Script aus
Ändere den Text in B3, z.B. in „Bla bla Bla“
Führe VBA-Script nochmal aus
Es schreibt den Wert aus der Zelle B3 am Ende der Text-Datei


ich möchte erreichen dass der Wert von B3 nicht immer am Ende des Text-Datei eingefügt wird sondern am Anfange der Text-Datei, also neues Datum immer zuerst.

Danke für die Hilfe

[snb]

Code:

Sub M_snb()
  Open "G:\OF\voorbeeld.txt" For Input As #1
    c00 = Input(LOF(1), #1)
  Close
   
  Open "G:\OF\voorbeeld.txt" For Output As #1
    Write #1, , Format(Now, "yyyy/mm/dd hh.mm.ss||") & Cells(3, 2).Value & c00
  Close
End Sub

[Tom2020]

das Script fügt zusätzlich am Ende jeder Zeile in der Text-Datei ein " hinzu.

kann man es verhindern?

[snb]

Code:

Sub M_snb()
  Open "G:\OF\voorbeeld.txt" For Input As #1
    c00 = Input(LOF(1), #1)
  Close

  Open "G:\OF\voorbeeld.txt" For Output As #1
    Print #1, Format(Now, "yyyy/mm/dd hh.mm.ss||") & Cells(3, 2).Value & c00
  Close
End Sub

[Tom2020]

... jetzt funktioniert es 

Besten Dank und ein schönes WE

[snb]

Alternative:

Code:

Sub M_snb()
  With CreateObject("scripting.filesystemobject")
    .createtextfile("G:\OF\memo.text").write Format(Now, "yyyy/mm/dd hh.mm.ss||") & Cells(3, 2) & vbCrLf & .opentextfile("G:\OF\memo.text").readall
  End With
End Sub