Verbinding en schrijven op webserver

[johannetje2]

Hallo! Ik heb een webserver bij mijn host.

nu is mijn vraag, nu wil ik dat als je op save klikt, dat het bestand word gesaved naar een bestand op mijn webserver!

Hoe maak ik dit of is dit mogelijk?

 

[The Mighty Atom]

het bestand

Welk bestand?

 

[johannetje2]

als je iets invoert, moet het over het bestand:

http://www.johannetje2.nl/Messages/msg.txt

worden heen geschreven.

 

[The Mighty Atom]

Dat moet te doen zijn. Laat mij eens iets proberen.

BRB!

Edit:

Niet te geloven, er is echt totaal niks te vinden op Internet hoe je dit moet aanmaken, ik krijg alleen maar voorbeelden over het upload van een bestand naar een ftp server. Maar dat is zeker niet wat je wilt?

 

[johannetje2]

als het bestand wordt overgeschreven wel ja!

 

[The Mighty Atom]

Ok.

Ik dacht dat je steeds nieuwe regels direct in dat online text bestand wilde schrijven, dit zou ongetwijfeld kunnen, ik vind alleen nergens voorbeelden.

In dat geval maak ik wel iets dat steeds een nieuwe txt file upload.

Edit:
Probeer dit:

Plaats bovenaan je code form deze twee imports:

Imports System.Net
Imports System.IO

Dan, in het MyBase.Load event:

        Dim DownloadMessages As New WebClient

        DownloadMessages.DownloadFile _
        ("http://www.johannetje2.nl/Messages/msg.txt", Application.StartupPath & "\msg.txt")
        DownloadMessages.Dispose()

En als laatste, onder het click event van de button:

        Dim LocalFileName As String = Application.StartupPath & "\msg.txt"

        Dim WriteToLocalFile As New StreamWriter(LocalFileName, True)
        WriteToLocalFile.Write(Environment.NewLine & "  " & tbBericht.Text)
        WriteToLocalFile.Flush()
        WriteToLocalFile.Dispose()
        WriteToLocalFile.Close()


        Dim RemoteServer As String = "ftp://ftp.johannetje2.nl/"    'Je FTP server
        Dim RemoteFolder As String = "httpdocs/Messages/"           'Directory path (mogelijk is httpdocs anders bij jouw)
        Dim Login As String = "Je Login Hier"                       'Login
        Dim PassWord As String = "Je Password Hier"                 'Password

        Try
            Dim ftpRequest As FtpWebRequest = DirectCast(WebRequest.Create(RemoteServer & RemoteFolder & Path.GetFileName(LocalFileName)), FtpWebRequest)

            ftpRequest.Credentials = New NetworkCredential(Login, PassWord)
            ftpRequest.Method = WebRequestMethods.Ftp.UploadFile
            ftpRequest.KeepAlive = True
            ftpRequest.UseBinary = True
            Dim bFile() As Byte = File.ReadAllBytes(LocalFileName)
            Dim ftpStream As Stream = ftpRequest.GetRequestStream()
            ftpStream.Write(bFile, 0, bFile.Length)

            ftpStream.Flush()
            ftpStream.Dispose()
            ftpStream.Close()

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

Ik heb het getest op mn eigen webserver:

http://www.themightyatom.nl/Messages/msg.txt

Succes verder!

 

[johannetje2]

waarin moet ik httpdocs veranderen?

 

[johannetje2]

Hoe moet ik hem nu aanroepen? Ik heb een 2e richtextbox ernaast gezet, maar nu wil ik daar de tekst in die op de server staat.