16,555
社区成员
发帖
与我相关
我的任务
分享
Dim theNetworkCredential As New Net.NetworkCredential("shareuser", "P@ssword123", "servername")
Dim myFileWebRequest As Net.FileWebRequest
Dim myURLstring As New Uri("file://10.86.26.167/fs1/grampian.csv")
Dim myResponse As Net.FileWebResponse
myFileWebRequest = CType(Net.FileWebRequest.Create(myURLstring), Net.FileWebRequest)
myFileWebRequest.Credentials = theNetworkCredential
myFileWebRequest.Timeout = 100000
myFileWebRequest.Method = "POST"
myFileWebRequest.ContentType = "application/x-www-form-urlencoded"
myResponse = CType(myFileWebRequest.GetResponse(), Net.FileWebResponse)
Dim myStream As Stream = myResponse.GetResponseStream()
Dim reader As StreamReader = New StreamReader(myStream)