以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想在导入文件的同时，更改被导入的图片的文件名改怎么办？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44566)
--  作者：jinzhengbe
--  发布时间：2014/1/3 20:14:00
--  想在导入文件的同时，更改被导入的图片的文件名改怎么办？

 

[此贴子已经被作者于2014-1-4 16:41:31编辑过]
--  作者：有点甜
--  发布时间：2014/1/3 20:23:00
--  
 代码，红色的地方，不是是可以随意改的么？

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
Next
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
--  作者：jinzhengbe
--  发布时间：2014/1/3 21:34:00
--  我想您是误会了！ 我要改的是本地图片的名称

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

 

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

 

 
--  作者：程兴刚
--  发布时间：2014/1/3 21:43:00
--  
copyfile
--  作者：有点甜
--  发布时间：2014/1/3 21:54:00
--  
 重命名，帮助里有的。
--  作者：jinzhengbe
--  发布时间：2014/1/4 14:29:00
--  谢谢仁兄的帮助，还差一点问题，麻烦一下

我要需要的是吧 用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
--  作者：有点甜
--  发布时间：2014/1/4 20:02:00
--  
 你说根据bbb列给图片赋值，但是，你bbb列有值么？