Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共15 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:Network.DownloadFile时出错

1楼
yankunhao 发表于:2010/7/1 12:09:00


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

开发密码:WERF

2楼
czy 发表于:2010/7/1 12:53:00
Ftp用户名及密码正确吗?
3楼
yankunhao 发表于:2010/7/1 13:15:00

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

4楼
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

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

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

9楼
狐狸爸爸 发表于:2010/7/1 15:08:00

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

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

10楼
yankunhao 发表于:2010/7/1 15:41:00
虽然通过共享文件夹来共享文件,但电脑之间也要验证用户及密码的时候的
共15 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 2 queries.