Jag har en textfil som jag har text i och jag vill skriva till ny text i den under det som redan står men jag är inte någe bra på sådana saker men jag har iallafall lyckats få det att funka.

Min fråga är om det finns nått enklare sätt att göra deta på, allt för att servern ska slippa jobba onödigt :D

min kod:
<code>
adrFtp = "c:\fil.txt"

Set oTextFil = oFSO.OpenTextFile(adrFtp)

Do While Not oTextFil.AtEndOfStream
strInUse = strInUse & oTextFil.ReadLine & vbCrLf
Loop

oTextFil.Close
Set oTextFil = Nothing

Set oTextFil = oFSO.CreateTextFile(adrFtp)

oTextFil.WriteLine strInUse
oTextFil.WriteLine "Text du vill skriva1."
oTextFil.WriteLine "Text du vill skriva2."

oTextFil.Close
Set oTextFil = Nothing
</code>

Tack på för hand!

Hej.

Vet inte om det är lättare för servern, men defenitivt för dej :-)

<code>
Public Sub append(ByVal Message As String, ByVal FileName As String, Optional ByVal addTime As Boolean)
Dim intFileNum As Integer
intFileNum = FreeFile
Open FileName For Append As #intFileNum
If addTime Then
Print #intFileNum, Now & vbCrLf & Message & vbCrLf
Else
Print #intFileNum, Message & vbCrLf
End If
Close intFileNum
End Sub
</code>

//fredda

det löste sig, glömde skriva det här, sorry!

Set oTextFil = oFSO.OpenTextFile(adrFtp, 8)

oTextFil.WriteLine "testen"

oTextFil.Close
Set oTextFil = Nothing

man la bara till en 8 i öppna strängen