想在导入文件的同时，更改被导入的图片的文件名改怎么办？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[此贴子已经被作者于2014-1-4 16:41:31编辑过]

代码，红色的地方，不是是可以随意改的么？

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("d:\")

If ftp1.Upload(file, "upfile1\pic\" & "改成你想改的名字" & Rand.Next(10000),True) = 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("ppp") = f.Name

Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

我想您是误会了！我要改的是本地图片的名称

虽然没有什么区别，感觉改本地的图片名称后会好些。~ 有好的办法麻烦告诉一下奥！！

重命名，帮助里有的。

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

我要需要的是吧用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
Next

你说根据bbb列给图片赋值，但是，你bbb列有值么？

主题：想在导入文件的同时，更改被导入的图片的文件名改怎么办？