以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于上传文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105793) |
-- 作者:做自己 -- 发布时间:2017/8/26 7:39:00 -- 关于上传文件 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
[此贴子已经被作者于2017/8/26 7:42:38编辑过]
|
-- 作者:有点蓝 -- 发布时间:2017/8/26 8:52:00 -- 设置编码试试 ftp1.UTF8 = true
|