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

老师，如果我上传一个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

主题：FTP上传