以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP上传  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170784)
--  作者：漂亮美眉vszh
--  发布时间：2021/8/7 11:22:00
--  FTP上传
老师，如果我上传一个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
    Next
--  作者：有点蓝
--  发布时间：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


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