mit
intZeilen = Split(CurrentFile.readAll(),VbCrlf)
For i = 0 To Ubound(intZeilen)
y = y + 1
If y = Ubound(intZeilen) Then
CurrentFile.WriteLine(VbCrlf & strBestellung)
Exit For
End If
Next
bekomme ich "Ung�ltiger Dateimodus." in der zeile wo ich die
neue zeile einf�gen will... :-/
> bin gerade etwas von der rolle und muss zudem noch mit
> meinem liebling, dem fso k�mpfen :-/
>
> und zwar hab ich nen txtfile an welches, wenns existiert,
> ne zeile drangeh�ngt werden soll...
>
> mit nachfolgendem code bringe ich aber lediglich dem server
> zum absturz...
>
> hat jemand nen snipplet zur hand?
>
> If FSO.FileExists(strFile) Then
> Set CurrentFile =
> FSO.OpenTextFile(strFile,1,True)
> Do While Not CurrentFile.AtEndOfStream
> If CurrentFile.AtEndOfStream =
> True Then
>
> CurrentFile.WriteLine(VbCrlf & strBestellung)
> End If
> Loop
> Set CurrentFile = Nothing
> Else
> Set NewFile = FSO.CreateTextFile(strFile)
> NewFile.WriteLine(strBestellung)
> Set NewFile = Nothing
> End If
>
> gru�, thomas
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
> | knnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anme>
lden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
