高分!读取文件服务器共享目录的文件,有设置用户名密码, 现在验证通不过

客户有话说 2015-12-15 03:28:28
文件服务器上的共享目录, 用下面这段代码读取的时候,抱错 用户名密码错误.
错误就发生在这句: myResponse = CType(myFileWebRequest.GetResponse(), Net.FileWebResponse)

完整代码如下, 请问是不是还缺了什么? 方案暂时不变,就是用这个. 手动在浏览器输入用户名密码,下面的代码执行正常.
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)


...全文
67 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

16,555

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧