Foxtable(狐表)用户栏目专家坐堂 → FileManager控件选择时,怎么过过滤扩展名?


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

主题:FileManager控件选择时,怎么过过滤扩展名?

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


加好友 发短信
等级:七尾狐 帖子:1751 积分:16538 威望:0 精华:0 注册:2017/6/1 23:12:00
FileManager控件选择时,怎么过过滤扩展名?  发帖心情 Post By:2018/3/16 23:26:00 [只看该作者]

FileManager控件选择时,怎么过过滤扩展名?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/17 8:49:00 [只看该作者]

1、自己做文件管理器,通过GetFileList获取文件列表,然后自己过滤

2、如果是高级开发版用户可以可看这个

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


加好友 发短信
等级:七尾狐 帖子:1751 积分:16538 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/3/17 9:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
在哪里写代码,二种情况都可以用,但不知道怎么写代码,在哪写,怎么写,能指导一下步骤吗?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/17 10:02:00 [只看该作者]

仔细看2楼的帮助,如果是第一种用法,就不能使用FileManager控件了,这个控件所有的方法都要自己写代码实现

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


加好友 发短信
等级:七尾狐 帖子:1751 积分:16538 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/3/17 10:16:00 [只看该作者]

用第二种方法能用这个控件吗?怎么用?请指点一二

[此贴子已经被作者于2018/3/17 10:16:26编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/17 10:48:00 [只看该作者]


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


加好友 发短信
等级:七尾狐 帖子:1751 积分:16538 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/3/17 12:35:00 [只看该作者]

一个窗体上有文件上传还有图片上传,在网络监视器里用代码怎么区分过滤文件扩展名和图片扩展名?


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/17 14:06:00 [只看该作者]


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


加好友 发短信
等级:七尾狐 帖子:1751 积分:16538 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/3/17 14:18:00 [只看该作者]

我在这个事件beforelistdetails下写的这个代码,没有效果啊?
If Forms("配件信息窗口").Opened   Then
    For Each Info() As String In e.Infos
        If Right(Info(0),3)<> ".nc"  Or Right(Info(0),4)<> ".tap"   Then '隐藏后缀名为rar的文件
            e.Remove(Info)
        End If
    Next
End If

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/17 14:33:00 [只看该作者]

不需要判断窗口是否打开
For Each Info() As String In e.Infos
    If Right(Info(0),3) = ".nc"  OrElse  Right(Info(0),4) = ".tap" OrElse Info(2) = "D"   Then '隐藏后缀名为rar的文件
    Else
        e.Remove(Info)
    End If
Next

 回到顶部
总数 16 1 2 下一页