- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- FTP按路径上传 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98158)
-- 发布时间：2017/3/25 9:32:00
-- FTP按路径上传
求代码
修改成上传的图片自动用身份证号命名并按指定路径保存
FTP路径:192.168.1.18/人事管理/员工相片/
表名:员工档案 列名:照片
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.18"
ftp1.Port = 21
ftp1.Account = "cgjftp"
ftp1.Password = "Xj671766"
ftp1.Changedir("\\员工相片")
If ftp1.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.FileName)) = True Then
Tables("员工档案").Current("照片") &= IIF(Tables("员工档案").Current.IsNull("照片"), "", vbcrlf) & "/" & FileSys.GetName(dlg.FileName)
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
ftp1.close
End If
求代码
修改成上传的图片自动用身份证号命名并按指定路径保存
FTP路径:192.168.1.18/人事管理/员工相片/
表名:员工档案 列名:照片
-- 发布时间：2017/3/25 9:41:00
--
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.18"
ftp1.Port = 21
ftp1.Account = "cgjftp"
ftp1.Password = "Xj671766"
\'ftp1.Changedir("\\员工相片")
Dim r As Row = Tables("员工档案").Current
If r IsNot Nothing Then
Dim name As String = r("身份证号码") & FileSys.GetName(dlg.FileName).Split(".")(1)
If ftp1.Upload(dlg.FileName, "\\人事管理\\员工相片\\" & name) = True Then
r("照片") &= IIF(r.IsNull("照片"), "", vbcrlf) & "/" & name
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
ftp1.close
End If
-- 发布时间：2017/3/25 9:56:00
--
有点蓝 文件上传有格式有问题 路径好像也不对
/332624197712050019jpg 现在按你的代码上传后是这个
我的意思是上传后 /人事管理/员工相片/应再华332624197712050019.JPG
-- 发布时间：2017/3/25 9:59:00
--
Dim name As String = r("姓名") & r("身份证号码") & "." & FileSys.GetName(dlg.FileName).Split(".")(1)
-- 发布时间：2017/3/25 10:00:00
--
路径根据自己表格设置的根目录，自行调整
-- 发布时间：2017/3/25 10:19:00
--
有点蓝老师
此主题相关图片如下：微信图片_20170325101605.png
表上面的路径不对 看不到图片 只有一个叉
现在路径是:/姓名112332624199905124101.jpg 不显示
正确路径是:/人事管理/员工相片/姓名112332624199905124101.JPG
-- 发布时间：2017/3/25 10:20:00
--
这个明白 代码上不能自己再定义啊
-- 发布时间：2017/3/25 10:32:00
--
搞定了 谢谢啦有点蓝老师
假如有多张照片 我想按姓名存
格式为: 姓名01.jpg
姓名02.jpg
姓名03.jpg
姓名04.jpg 这样怎么改呢
-- 发布时间：2017/3/25 10:42:00
--
http://www.foxtable.com/webhelp/scr/2718.htm
根据行数+1改名称