以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何自动上传图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70179)

--  作者:hongyefor
--  发布时间:2015/6/16 21:22:00
--  如何自动上传图片


图片点击可在新窗口打开查看此主题相关图片如下:tpm1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:tpm2.jpg
图片点击可在新窗口打开查看
请问已知图片名的地址(C:\\eTax@SH WSRZ\\Data\\Pictures\\31022875380680X\\H1641263463345MG.jpg

“图片名”列只有文件名没有路径,但是文件夹只有一个C:\\eTax@SH WSRZ\\Data\\Pictures\\31022875380680X\\

如何让它自动上传到服务器FTP的文件夹里,并在“发票图片”列显示


--  作者:大红袍
--  发布时间:2015/6/16 21:24:00
--  

用代码上传图片,然后给单元格赋值为上传的路径

 

Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
If
ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then
   
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
   
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


--  作者:hongyefor
--  发布时间:2015/6/16 21:30:00
--  
If ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then
这句话是什么意思,还有给那个单元格赋值为上传的路径?
--  作者:大红袍
--  发布时间:2015/6/16 21:32:00
--  

 意思是上传图片到ftp

 

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

 


--  作者:hongyefor
--  发布时间:2015/6/16 21:35:00
--  
如果在FTP文件夹里已经有相同的文件了怎么办,还有给哪个单元格赋值为上传的路径?
--  作者:大红袍
--  发布时间:2015/6/16 21:39:00
--  

 如果有相同的文件,会覆盖原先那个文件。

 

 上传之后不是要在发票图片显示么?就在发票图片列赋值为上传的ftp的路径或者文件名。


--  作者:hongyefor
--  发布时间:2015/6/16 21:41:00
--  

用什么办法批量啊

 


--  作者:大红袍
--  发布时间:2015/6/16 21:42:00
--  
 你循环每一行,就是批量啊。
--  作者:hongyefor
--  发布时间:2015/6/17 11:47:00
--  

这个事件不会写,我的想法是,在指定的文件夹里查找“图片名”列对应的文件,名然后在FTP文件夹里查找是否有该文件存在,如果没有则上传到FTP文件夹,然后将FTP里存在的对应文件地址添加到“发票图片”列并显示,然后锁定该行,同时显示图片的时候隐藏所有图片框所有按键

 

请大师帮忙写出事件,谢谢


--  作者:大红袍
--  发布时间:2015/6/17 11:49:00
--  
 上传例子。