Foxtable(狐表)用户栏目专家坐堂 → [求助]如何关闭ftp管理器?


  共有3521人关注过本帖树形打印复制链接

主题:[求助]如何关闭ftp管理器?

帅哥哟,离线,有人找我吗?
shenhq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:194 积分:1580 威望:0 精华:0 注册:2013/12/8 22:48:00
[求助]如何关闭ftp管理器?  发帖心情 Post By:2014/6/6 23:05:00 [只看该作者]

自写了打开本地文件上传图片的代码,上传文件成功并写入列后,这ftp管理器总是自动开着,如何才能用代码关掉它或者不让它启动出现呢?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/6/7 8:32:00 [只看该作者]

直接用代码完成,无须打开 http://www.foxtable.com/help/topics/1410.htm

 回到顶部
帅哥哟,离线,有人找我吗?
shenhq
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:194 积分:1580 威望:0 精华:0 注册:2013/12/8 22:48:00
  发帖心情 Post By:2014/6/8 14:30:00 [只看该作者]

以下是引用Bin在2014-6-7 8:32:00的发言:
直接用代码完成,无须打开 http://www.foxtable.com/help/topics/1410.htm

可是上传完成后它确实出现了啊?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/8 15:23:00 [只看该作者]

 如果是自己编写代码上传图片的话,怎么可能调用到ftp管理器?

 

 贴出你的代码,或上传例子。


 回到顶部
帅哥哟,离线,有人找我吗?
shenhq
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:194 积分:1580 威望:0 精华:0 注册:2013/12/8 22:48:00
  发帖心情 Post By:2014/6/12 9:56:00 [只看该作者]

以下是引用有点甜在2014-6-8 15:23:00的发言:

 如果是自己编写代码上传图片的话,怎么可能调用到ftp管理器?

 

 贴出你的代码,或上传例子。

'自定义上传图片-------------------------------------------------------------------
If e.DataCol.name ="图片"
    Dim dlg As New OpenFileDialog
    dlg.MultiSelect = True
    dlg.Filter= "图片文件|*.jpg|图片文件|*.jpeg" '设置筛选器
    If dlg.ShowDialog = DialogResult.OK Then
       
        Dim  ftp1 As  New  FtpClient
        ' If TryConnectHost("192.0.0.0") Then   '判断内网FTP地址是否通
        'ftp1.Host="192.0.0.0"
        ' Else                                    '否则使用外网地址
        ftp1.host ="220.220.220.220"
        'End If
        ftp1.Account =  "user"               '用户名
        ftp1.Password =  "1111111"
        ftp1.RootDir = "/localuser/photo/"     'ftp根目录
        If ftp1.direxists( ftp1.RootDir & e.DataRow("项目编号")) =False Then    '如果不存在该项目编号的目录
            ftp1.makedir(ftp1.rootdir & e.DataRow("项目编号"))                 '在根目录下建立该目录
        End If
        For Each fl As String In dlg.FileNames
            Dim Randstr As String =Rand.NextString(6)
            If ftp1.Upload(fl, ftp1.RootDir & e.DataRow("项目编号") & "/" & e.DataRow("档案编号")& e.DataRow("权利人") & Randstr & ".jpg",True) = True Then
                Dim pname As String
                pname = ftp1.RootDir & e.DataRow("项目编号") & "/" & e.DataRow("档案编号")& e.DataRow("权利人") & Randstr & ".jpg"
                If e.DataRow.Isnull("图片") Then
                    e.DataRow("图片") =  pname
                Else
                    e.DataRow("图片")  = e.DataRow("图片") & vbcrlf & pname
                End If
                'Messagebox.show(fl & "-上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Messagebox.show( fl & "-上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        Next

    End If
   
End If


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/6/12 9:58:00 [只看该作者]

你这个代码,都没有打开ftp管理器,和ftp管理器的显示和关闭有什么关系?


 回到顶部
帅哥哟,离线,有人找我吗?
shenhq
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:194 积分:1580 威望:0 精华:0 注册:2013/12/8 22:48:00
  发帖心情 Post By:2014/6/12 17:52:00 [只看该作者]

以下是引用狐狸爸爸在2014-6-12 9:58:00的发言:

你这个代码,都没有打开ftp管理器,和ftp管理器的显示和关闭有什么关系?

反正是在OpenFileDialog后,不选择图片点取消 或选择图片上传成功后都会出现以下窗口:


 


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-6-12 17:52:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/6/12 17:56:00 [只看该作者]

你是不是写在文件增加事件中了?  那你执行E.Cancel=TRUE

 回到顶部