FTP按路径上传 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP按路径上传

共有1750人关注过本帖树形打印复制链接主题：FTP按路径上传

zoyong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

FTP按路径上传 发帖心情

Post By：2017/3/25 9:32:00 [显示全部帖子]

求代码

修改成上传的图片自动用身份证号命名并按指定路径保存

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/人事管理/员工相片/

表名:员工档案列名:照片

zoyong

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/3/25 9:56:00 [显示全部帖子]

有点蓝文件上传有格式有问题路径好像也不对

/332624197712050019jpg 现在按你的代码上传后是这个

我的意思是上传后 /人事管理/员工相片/应再华332624197712050019.JPG

zoyong

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/3/25 10:19:00 [显示全部帖子]

有点蓝老师

此主题相关图片如下：微信图片_20170325101605.png

表上面的路径不对看不到图片只有一个叉

现在路径是:/姓名112332624199905124101.jpg 不显示

正确路径是:/人事管理/员工相片/姓名112332624199905124101.JPG

zoyong

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/3/25 10:20:00 [显示全部帖子]

这个明白代码上不能自己再定义啊

zoyong

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/3/25 10:32:00 [显示全部帖子]

搞定了谢谢啦有点蓝老师

假如有多张照片我想按姓名存

格式为: 姓名01.jpg

姓名02.jpg

姓名03.jpg

姓名04.jpg 这样怎么改呢

下一主题 >> << 上一主题

主题：FTP按路径上传