主题：请教局域网FTP连接代码拼写。

用于，在线升级路径。

 

用户名:erpftp

密码:pw

内部地址： 192.168.100.107

端口默认:21

升级目录: /update

 

 

借帮助例子没成功。帮纠正下，谢谢！

 

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

你账号密码对吗? IP端口是否正确.

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

 

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

 

不会呀。瞧瞧..

 

 

 

此主题相关图片如下：11.png

 

此主题相关图片如下：22.png

你用这个链接,在浏览器里可以正常打开吗?

可以耶，

 

难道是我判断文件存不存在，出的问题？

 

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

 

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

这个不能用filesys.FileExists 来判断

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

 

 

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

 

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