以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Network.DownloadFile时出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7493)

--  作者:yankunhao
--  发布时间:2010/7/1 12:09:00
--  Network.DownloadFile时出错


图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看
请问这是什么回事呢?

开发密码:WERF


--  作者:czy
--  发布时间:2010/7/1 12:53:00
--  
Ftp用户名及密码正确吗?
--  作者:yankunhao
--  发布时间:2010/7/1 13:15:00
--  

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


--  作者:yankunhao
--  发布时间: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


--  作者:狐狸爸爸
--  发布时间:2010/7/1 14:39:00
--  
局域网的文件,就和本机一样,是复制,不是下载,Downloadfile针对的互联网的
--  作者:yankunhao
--  发布时间:2010/7/1 14:49:00
--  
那应该用什么样的代码好呢?
--  作者:狐狸爸爸
--  发布时间:2010/7/1 14:55:00
--  
看看帮助中“文件与目录”这一章
--  作者:yankunhao
--  发布时间:2010/7/1 14:58:00
--  

看了,但找不到如何凳录到局域网中的相关内容啊!


--  作者:狐狸爸爸
--  发布时间:2010/7/1 15:08:00
--  

我也不知道,我用局域网很简单,通过共享文件夹来共享文件。

如果你用的是ftp,检查账户和密码是否正确。


--  作者:yankunhao
--  发布时间:2010/7/1 15:41:00
--  
虽然通过共享文件夹来共享文件,但电脑之间也要验证用户及密码的时候的