Dim wr As System.Net.HttpWebRequest
Dim ws As System.IO.Stream
Dim sw As System.IO.StreamWriter
Dim sr As System.IO.StreamReader
Dim sFile As String = ""
Dim sLine As String
Try
Dim su As New System.Uri(mypublicwebspace & sFile)
wr = DirectCast(System.Net.WebRequest.Create(su), System.Net.HttpWebRequest)
wr.Method = "PUT"
wr.AllowWriteStreamBuffering = True
wr.KeepAlive = True
ws = wr.GetRequestStream()
sw = New System.IO.StreamWriter(ws)
sr = New System.IO.StreamReader(gsAppFolderPath & "\" & sFile)
sLine = sr.ReadLine()
While sLine IsNot Nothing
sw.WriteLine(sLine)
sLine = sr.ReadLine()
End While
sw.Close()
sw.Dispose()
sr.Close()
sr.Dispose()
ws.Close()
ws.Dispose()
Finally
End Try
This post has been edited by modi123_1: 01 July 2012 - 09:39 AM
Reason for edit:: highlight your code and click the code button..

New Topic/Question
Reply



MultiQuote




|