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

 

 

 

 

想在导入文件的同时，更改被导入的图片的文件名改怎么办？   已经上传实例。 麻烦各位师兄指点

 

我是想在导入图片的同时 把图片名称 改成 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列的值

 

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

 

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

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

 

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

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

 

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

刚才的问题结局了， 但是显示上传失败，是不是改名字的时候出现问题了呢？

时间格式可以转换成这种形式么？ 20140103 （2014/01/03) 好像是时间的问题

非常感谢狐狸爸爸，和其他老狐狸的支持。~~~~