Dim ftp1 As New FtpClient
Dim dls As List(of String)
ftp1.Host="192.168.1.107"
ftp1.Account = "sara"
ftp1.Password = "123456"
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
Dim Values() As String
Dim str As String
Dim strDes As String
If dlg.ShowDialog = DialogResult.OK Then
For Each fl As String In dlg.FileNames
Values = fl.split("\")'文件名带扩展名的
str = Values(Values.Length - 1)
strDes = "/" & str
ftp1.Upload(fl,strDes )
Next
End If
我这样写上传文件结果是这样的呢，怎么回事，文件名字不对，内容
此主题相关图片如下：1.png
也没有了
[此贴子已经被作者于2017/8/26 7:42:38编辑过]
加好友 
发短信
Post By：2017/8/26 7:39:00 [显示全部帖子]
