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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP上传

共有3743人关注过本帖树形打印复制链接主题：FTP上传

漂亮美眉vszh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：893 积分：8070 威望：0 精华：0 注册：2013/5/30 11:27:00

FTP上传

Post By：2021/8/7 11:22:00 [只看该作者]

老师，如果我上传一个FTP文件，然后自动复制这个文件到FTP下面不同的文件夹内，代码写的不对，帮忙看下，事件写在上传之前执行

dim st as string = "111,222,333"

Dim vvs() As String = st.split(",")

Dim sfm As String = e.LocalFile

MessageBox.Show(sfm)

For Each vv As String In vvs

If vv <> "" Then

'ftp1.Changedir("/" & _UserCusID & _UserCusName & "/" & vv & "/")

Output.Show(sfm & " " & "\" & _UserCusID & _UserCusName & "\" & vv & "\")

Output.Show(e.CurFolder)

e.CurFolder = "\" & _UserCusID & _UserCusName & "\" & vv & "\"

' FileSys.CopyFile(sfm, "\" & _UserCusID & _UserCusName & "\" & vv & "\" & "123.txt",True)

End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/7 11:31:00 [只看该作者]

上传之前?都还没有上传，如何复制？！

要么上传后再复制，复制参考：http://www.foxtable.com/webhelp/topics/1410.htm

写这段帮助的时候，我意外发现Rename还可以移动文件。
例如将文件"jz.png"从photo目录移到到newkey目录：

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Rename("\photo\jz.png","\newkey\jz.png") Then
Messagebox.show("移动文件成功!")
End If

要么再上传一次，上传到另外一个目录

下一主题 >> << 上一主题

主题：FTP上传