下载信息  [文件大小：   下载次数： ]

点击浏览该文件:zdbh.table

我想将第八列、第九列、第十列 用FTP的方式一起上传到我的服务器，并在服务器里面同时建立一个和第四列相同名字文件夹

请问怎么在上传按键上写代码啊

假定图片文件存储在C盘的文件夹A里的和第四列同名的文件夹里

比如：

C盘/A/李明/李明1.jpg、李明2.jpg、李明3.jpg

C盘/A/这三/这三1.jpg、这三2.jpg、这三3.jpg

上传结果：(192.168.0.17)

/A/李明/李明1.jpg、李明2.jpg、李明3.jpg

/A/这三/这三1.jpg、这三2.jpg、这三3.jpg

参考

http://www.foxtable.com/help/topics/1410.htm

上传文件夹，也可以这样写

ftp1.UploadDirectory("d:\\test", False)

Dim ftp1 As New FtpClient
    ftp1.Host="021.co.net"
    ftp1.Account = "user"
    ftp1.Password = "654321"
    Dim f As String = "c:"& "第八列"
    Dim sf As String =   "第八列"

If  ftp1.Upload(f,sf) = True Then
      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If

这样对不对啊

比如

Dim ftp1 As New FtpClient
ftp1.Host="021.66ip.net"
ftp1.Account = "byftpuser"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim f As String = "c:"& r("第八列")
Dim sf As String =  r("第八列")

If  ftp1.Upload(f,sf) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

如果，对应路径不存在，你还要在ftp上新建对应的文件夹

看懂代码啊

Dim ftp1 As New FtpClient
ftp1.Host="021.66ip.net"
ftp1.Account = "byftpuser"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim f As String = "d:\\test.jpg"
Dim sf As String =  "/A/test.jpg"

If  ftp1.Upload(f,sf) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If