4 svar · 269 visningar · startad av Poffe
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:
adrFtp = "c:\fil.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
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
Set oFSO = Nothing
Tack på för hand!
Borde funka:
adrFtp = "c:\fil.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextFil = oFSO.OpenTextFile(adrFtp, forAppending)
oTextFil.WriteLine "Text du vill skriva1."
oTextFil.WriteLine "Text du vill skriva2."
oTextFil.Close
Set oTextFil = Nothing
Set oFSO = Nothing
Mvh,
får felet:
Ogiltigt proceduranrop eller argument.
på raden:
Set oTextFil = oFSO.OpenTextFile(adrFtp, forAppending)
vet du, eller nån annan, vad som kan vara på tok då?
Vad knasigt. Jag hade för mig att ForAppending är en konstant som är fördefinierad, men så var inte fallet. Den skall ha värdet 8. Om du vill kan du själv definiera konstanten innan du använder den:
Const forAppending = 8
eller helt enkelt bara använda värdet 8 i din kod.
Set oTextFil = oFSO.OpenTextFile(adrFtp, 8)
Mvh,