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

我是想在导入图片的同时 把图片名称 改成 bbb （用bbb列的值 做图片的名称。）

试着改了一下，还是不好用，所以还要请教各位师兄了

Dim Val As String
For Each File As String In FileSys.GetFiles("C:\Users\trj\Desktop\图片\")
Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
    Dim r As Row = Tables("newmoo_product").addnew
    Val = Val & "|" & f.Name
Dim Values() As String
Values = Val.split("|")
For Index As Integer = 0 To Values.Length - 1
   ' Dim r As Row = Tables("newmoo_product").addnew
    r("ppp") = Values(Index)
Next

Dim ftp1 As New FtpClient
ftp1.Host="tangrenjie.net"
ftp1.Account = "ftp"
ftp1.Password = "zhengbe"
ftp1.UTF8 = True

Dim Str1 As String
Str1 = DataTables("newmoo_product").GetComboListString("bbb")

    If ftp1.Upload(file, "upfile1\pic\aaa\" & str1 ) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
  '  Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
  '  Dim r As Row = Tables("newmoo_product").AddNew
    'r("bbb") = f.Name
Next

我有传 例子的啊。 bbb列 是系统自动生成的。 然后我想在 导入图片后 把图片名 都改成 bbb列的值

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

我蒙一下，你要求的是上传某个目录的文件到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

1 首先我要先找到 图片目录下的图片，并且把 图片目录下的图片名都导入到  ppp 这个列中

2 完成导入之后，将所有的图片名 改成 bbb 的列的值，并上传到ftp

 （bbb 和ppp 是两个不同的概念） ppp 是图片原来的名称，bbb是图片改名后名称。。

问题。  现在ppp 这个值 我没有什么大碍，都能搞定，就是把图片名改成 bbb的值，一直弄不明白。 这样说，可以理解么？？

呵呵，我就不明白了，你每个文件增加了一行，将文件名保存在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，别人下载下来都要半个小时，这不现实的。

此主题相关图片如下：??.png

显示这个提示，应该马上就快好了吧？ 谢谢 狐狸爸爸

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