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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 上传照片

共有5706人关注过本帖树形打印复制链接主题：[求助] 上传照片

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/24 12:38:00 [显示全部帖子]

上传实例说明。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/24 16:13:00 [显示全部帖子]

我用127.0.0.1测试了一下，没问题的。

注意点：你pictureviewer属性那里，要设置好ftp的信息；或者你列属性那里，把图片扩展成图片列，设置好ftp信息；如果是网络上的ftp，下载速度相对较慢，你要等候一段时间才会下载完成。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/8 9:54:00 [显示全部帖子]

1、遇到什么问题？报什么错？

2、合成的路径弹出来看看是否正确

msgbox("/Homenetwork/" & t("上传资料路径") & "1.jpg)

3、如果ftp上没有对应的文件夹，是会上传错误的

[此贴子已经被作者于2018/6/8 9:54:13编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/8 9:57:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim t As Row = Tables("集客项目工单清单表").current
    Dim fls1 As String = ""
    Dim ftp1 As New FtpClient
    ftp1.Host="192.168.1.100"
    ftp1.Port = 23
    ftp1.Account = "abc"
    ftp1.Password = "321"
    If ftp1.DirExists( "/Homenetwork/" & t("上传资料路径") ) Then '判断目录是否存在
    Else
        ftp1.MakeDir( "/Homenetwork/" & t("上传资料路径") ) '新建目录
    End If
    ftp1.Changedir( "/Homenetwork/" & t("上传资料路径") )'设置路径为当前目录

    If ftp1.Upload(dlg.FileName,"Homenetwork/" & filesys.GetName(dlg.FileName)) = True Then
        Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/8 10:30:00 [显示全部帖子]

参考31楼。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/8 12:35:00 [显示全部帖子]

以下是引用wumingrong1在2018/6/8 12:09:00的发言：

参照以上思路；想要设置一个可以读取放在服务器上 Homenetwork/ 目录下的所有文件；然后点击其中一个文件后进行删除。该怎么处理？

建议直接打开ftp管理器处理

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.DeleteEnabled =False '禁用删除文件按钮
ftp1.RenameEnabled = False '禁用重命名文件按钮
ftp1.RootDir = "\photo" '设置根目录
ftp1.OpenManager()

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/8 15:08:00 [显示全部帖子]

If ftp1.DeleteFile("/Homenetwork/" & t("上传资料路径") & "/" & e.Form.Controls("上传资料文件").text) = True Then

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/10 22:33:00 [显示全部帖子]

If ftp1.DeleteFile("/Homenetwork/" & t("文件路径") & "/" & e.Form.Controls("删除文件").text) = True Then

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

主题：[求助] 上传照片