---

Hvordan gøres det?? jeg skal tilføje en enkelt linie til en fil, og lukke
den igen. har prøvet følgende;

Const Filen = "C:\text.txt"

Private Sub Command1_Click()

Dim Indhold As String
Open Filen For Random As #1
Get #1, , Indhold
Put #1, , Indhold & vbCrLf & Text1.Text
Close #1

End Sub

men det virker ikke ret godt, og der kommer underlige tegn i output filen og
ting og sager. hvad gør jeg galt??

---

Hej Jesper,

Du skal ikke åbne filen med Random, men med Append:

Open Filen For Append As #1
Print #1, Text1.Text
Close #1

Dette tilføjer den nye linie sidst i filen.

Der er lige en lille forskel: I dit eksempel indsætter du et linieskift FØR den
nye linje. Ovenstående Print-kommando indsætter et linjeskift EFTER den nye
linje. Hvis det er vigtig for dig, at sidste linje i filen ikke efterfølges af
et linjeskift, skal du istedet skrive:

Print #1, vbCrLf & Text1.Text;

Så er den helt magen til det, du forsøger at gøre i dit eksempel.


--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG