Ukládání na FTP ve VB2010 Vyřešeno

[Grow]

Zdravím, udělal jsem jednoduchý chat, který ukládá data na FTP a taky je čte a zobrazuje v TextBoxu. Mám ale jeden problém, a to ten, že se ty data přepisují, zprávy se ukládají, ale jen na jeden řádek a jak se napíše nová zpráva tak se odešle na FTP ale přepíše se stará zpráva. A má otázka zní, jak udělat aby se každá zpráva uložila pod sebe a nepřepisovala.

Script pro poslání zprávy na FTP

Kód: Vybrat vše

Try
            Dim AClient As New Net.WebClient
            AClient.UploadString("ftp://xxx.xxx.xxx/zpravy.txt", Jméno.Text & ": " & Zpráva.Text)
            Zpráva.Text = ""
        Catch ex As Exception
        End Try

Předem díky.

[Reklama]

[CZechBoY]

stáhneš stávající obsah, připojíš k němu zprávu a uploaduješ

[Grow]

Ano, ale mě se pořád ta stára zpráva přepíše, ale já potřebuji aby se nahrála pod tu předchozí

[CZechBoY]

stáhnout starej soubor, připojit zprávu, nahrát

[Grow]

A snáz by to nešlo? Jakože tohle zkusím, ale nevím nevím jestli zvládnu..

[CZechBoY]

nedokážeš stáhnout soubor, vytáhnout z něj text, použít operátor += a uložit na server?!

[Grow]

stáhnout soubor ano, s tím vytáhnutím textu to bude horší

[CZechBoY]

StreamReader?

[Grow]

Takže nějak takhle?

Script pro stažení

Kód: Vybrat vše

            Dim Web As New WebClient
            Dim Update As String = Web.DownloadString("ftp://xxx.xxx.xxx/zpravy.txt")

            Pošta.Text = Update


A tady pro nahrání

Kód: Vybrat vše

Try
            Dim AClient As New Net.WebClient
            AClient.UploadString("ftp://xxx.xxx.xxx/zpravy.txt",update & Jméno.Text & ": " & Zpráva.Text)
            Zpráva.Text = ""
        Catch ex As Exception
End Try


Myslíš že by to takhle šlo?

--- Doplnění předchozího příspěvku (21 Úno 2012 21:59) ---

Zkusil sem to, ale teď se uloží jen dvě zprávy a ještě se nenapíšou pod sebe, ale na jeden řádek

[CZechBoY]

ťak nejspíš ukládáš zprávy na jeden řádek
co asi mám vyčíst z ukázkových příkladů funkcí?