Network.DownloadFile时出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Network.DownloadFile时出错

共有12228人关注过本帖树形打印复制链接主题：Network.DownloadFile时出错

yankunhao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1019 积分：7155 威望：0 精华：0 注册：2008/9/1 22:34:00

Network.DownloadFile时出错 发帖心情

Post By：2010/7/1 12:09:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：12.jpg

请问这是什么回事呢？

开发密码：WERF

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/7/1 12:53:00 [只看该作者]

Ftp用户名及密码正确吗？

yankunhao

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1019 积分：7155 威望：0 精华：0 注册：2008/9/1 22:34:00

Post By：2010/7/1 13:15:00 [只看该作者]

我是局域网内部共享的，用户名和密码都没错，因为在运行里输入\\IP地址然后输入用户名和密码可以入去的。

yankunhao

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1019 积分：7155 威望：0 精华：0 注册：2008/9/1 22:34:00

Post By：2010/7/1 14:37:00 [只看该作者]

请问以下代码有什么问题吗？

dim szdj as string =e.Form.Controls("TextBox1").Value
dim bcdj as string =e.Form.Controls("TextBox2").value
dim yfm as string =e.Form.Controls("TextBox3").value
dim mm as string =e.Form.Controls("TextBox4").value
Network.DownloadFile(szdj ,bcdj,yfm,mm,True,1000,True)
dim s as string =e.Form.Controls("TextBox6").value
dim c as string =s & "\" & e.Form.Controls("TextBox5").value
If FileSys.DirectoryExists(c) Then '如果目录C:\MyFolder存在
FileSys.DeleteDirectory(c,3,2)'则删除之
End If
Dim Proc As New Process
Proc.File = bcdj
Proc.Verb = "open"
Proc.Start()
Proc.WaitForInputIdle()
Sendkeys.SendWait(s) '发送按键信息
Sendkeys.SendWait("{ENTER}")
Sendkeys.sendwait("{RIGHT 1}")
Sendkeys.Sendwait("{ENTER}")
Dim Result As DialogResult
Result = MessageBox.Show("升级完成,请重新打开本系统!","提示")
If Result = DialogResult.OK Then
Syscmd.Project.Exit()
end if