关于上传文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 )

End If

我这样写上传文件结果是这样的呢，怎么回事，文件名字不对，内容
图片点击可在新窗口打开查看

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

也没有了

[此贴子已经被作者于2017/8/26 7:42:38编辑过]

主题：关于上传文件