以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教局域网FTP连接代码拼写。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51599)

--  作者:ndxfke
--  发布时间:2014/5/29 14:47:00
--  请教局域网FTP连接代码拼写。

用于,在线升级路径。

 

用户名:erpftp

密码:pw

内部地址: 192.168.100.107

端口默认:21

升级目录: /update

 

 

借帮助例子没成功。帮纠正下,谢谢!

 

ftp://erpftp:pw@192.168.100.107:21/update/


--  作者:Bin
--  发布时间:2014/5/29 14:50:00
--  
你账号密码对吗? IP端口是否正确.
--  作者:有点甜
--  发布时间:2014/5/29 15:20:00
--  

你尝试在浏览器里测试是否能打开对应路径

 

ftp://erpftp:pw@192.168.100.107:21/update/

 


--  作者:ndxfke
--  发布时间:2014/5/29 15:28:00
--  

不会呀。瞧瞧..

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看

 


图片点击可在新窗口打开查看此主题相关图片如下:22.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/5/29 15:29:00
--  
你用这个链接,在浏览器里可以正常打开吗?
--  作者:ndxfke
--  发布时间:2014/5/29 15:46:00
--  

可以耶,

 

难道是我判断文件存不存在,出的问题?

 

经过以下两种路径测试,结果找不到。难道方法错了?

 

Dim txt1 As String = ftp://erpftp:pw@192.168.100.107:21/ProjectFiles/Update/update.txt
Dim txt2 As String = ftp://192.168.100.107/ProjectFiles/Update/update.txt

 

If filesys.FileExists(txt2)  = True
    MessageBox.show("True")
Else
    MessageBox.show("false")
End If


--  作者:Bin
--  发布时间:2014/5/29 15:48:00
--  
这个不能用filesys.FileExists 来判断


--  作者:Bin
--  发布时间:2014/5/29 15:48:00
--  

FileExists

判断指定的文件是否存在,语法:

FileExists(FileName)

FileName:要判断的文件名,含路径。

示例

Dim ftp1 As New FtpClient
ftp1.Host=
"196.128.143.28"
ftp1.Account = 
"foxuser"
ftp1.Password = 
"138238110"
If 
ftp1.FileExists("\\photo\\jz.png") Then \'如果存在则下载
    
If ftp1.Download("\\photo\\jz.png","c:\\data\\jz.png"Then
        messagebox.Show(
"下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    
Else
        messagebox.Show(
"下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    
End If
Else

    messagebox.Show(
"此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End
 If


--  作者:ndxfke
--  发布时间:2014/5/29 15:51:00
--  

图片点击可在新窗口打开查看

 

 


--  作者:有点甜
--  发布时间:2014/5/29 16:24:00
--  

 看你的图片,update文件夹下没有升级包,而且设置的路径应该是这个

 

ftp://erpftp:pw@192.168.100.107:21/ProjectFiles/update/