我要做的是创建一个小型的" shoutbox"每个人都会在他们的计算机上登录,以便存储在文本框中输入的所有内容,并将其上传到位于 webserver 上的文件中。我现在要做的是在文件已经存在时覆盖文件中的现有内容。 网络服务器是本地的。
到目前为止我已尝试过:
Private Sub sendmsg_Click(sender As Object, e As EventArgs) Handles sendmsg.Click
Try
Dim path As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\chatlog.txt"
Dim writer As StreamWriter = New StreamWriter(path, True)
Dim address As String = "http://localhost/tonakis2108/shoutbox.txt"
'Grabs text from textboxes and hides logfile
writer.WriteLine(nickname.Text + ": " + msg.Text)
writer.Close()
File.SetAttributes(path, FileAttributes.Hidden) 'Hides file
'Uploads file
My.Computer.Network.UploadFile(path, address, "", "", True, 50)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
问题:
我遇到的问题是当我更改或删除服务器上的文件时,我收到错误404,目的地不存在,当文件已经存在并且空白时它没有做任何事情我上传。