主题：这个主题再重新 修正一下。之前没有说清楚，抱歉啊。麻烦再费心指导一下。

楼主你的代码可以说一塌糊涂，你直接说明你要干什么，也许更好。

我蒙一下，你要求的是上传某个目录的文件到ftp,而且每个文件在表中增加行，文件名保存在ppp这一列：

Dim ftp1 As New FtpClient
ftp1.Host="tangrenjie.net"
ftp1.Account = "ftp"
ftp1.Password = "zhengbe"
ftp1.UTF8 = True
For Each File As String In FileSys.GetFiles("C:\Users\trj\Desktop\图片\")
    Dim r As Row = Tables("newmoo_product").addnew
    r("ppp") = filesys.GetName(name)
    If ftp1.Upload(file, "upfile1\pic\aaa\" & r("ppp") ) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
Next

呵呵，我就不明白了，你每个文件增加了一行，将文件名保存在ppp这一列，新增行的bbb的内容是空白的，从何而来？ 如果bbb内容可以自动生成，那么代码只需改三个字符：

Dim ftp1 As New FtpClient
ftp1.Host="tangrenjie.net"
ftp1.Account = "ftp"
ftp1.Password = "zhengbe"
ftp1.UTF8 = True
For Each File As String In FileSys.GetFiles("C:\Users\trj\Desktop\图片\")
    Dim r As Row = Tables("newmoo_product").addnew
    r("ppp") = filesys.GetName(name)
    If ftp1.Upload(file, "upfile1\pic\aaa\" & r("bbb") ) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
Next

另外，一般做个例子只需几十K而已，不明白为啥你每个例子都差不多80M，别人下载下来都要半个小时，这不现实的。

r("ppp") = filesys.GetName(name)

改为

r("ppp") = filesys.GetName(file)

上传失败的原因可能很多，最有可能你的bbb列内容不是一个符合要求的文件名，你可以用messagebox.show显示一下合成的文件名是什么。

Dim ftp1 As New FtpClient
ftp1.Host="tangrenjie.net"
ftp1.Account = "ftp"
ftp1.Password = "zhengbe"
ftp1.UTF8 = True
For Each File As String In FileSys.GetFiles("C:\Users\trj\Desktop\图片\")
    Dim r As Row = Tables("newmoo_product").addnew
    r("ppp") = filesys.GetName(file)

    MessageBox.show("upfile1\pic\aaa\" & r("bbb"))
    If ftp1.Upload(file, "upfile1\pic\aaa\" & r("bbb") ) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
Next