IIS ASP.net webservice服务端
Dim m As New MemoryStream(filecontent)
Dim f As New FileStream(filename, FileMode.Create)
m.WriteTo(f)
m.Close()
f.Close()
Return "OK"
End Function
winform客户端
把文件内容读到数组里.
Imports System.IO
Imports System.Enum
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As System.IO.File
Dim fs As System.IO.FileStream
Dim uploadservice As New txsvr06.Service1
Dim localfilename,serverfilename as String
localfilename="c:\test.txt"
serverfilename="d:\wwwroot\uploadfiles\test.txt"
fs = f.Open(localfilename, IO.FileMode.Open, IO.FileAccess.Read)
Dim filecontent(fs.Length - 1) As Byte
fs.Read(filecontent, 0, fs.Length)
MsgBox(uploadservice.UploadFile(serverfilename,filecontent))
f = Nothing
fs.Close()
End Sub
文件名不必用绝对路径.
如果serverfilename不用绝对路径,则在服务器端
把Dim f As New FileStream(filename, FileMode.Create)
改为Dim f As New FileStream(server.mappath(filename), FileMode.Create)
作者：lumingtong【atong】