Foxtable(狐表)用户栏目专家坐堂 → [求助]遍历一级文件夹,把二级文件夹的名称列出来


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

主题:[求助]遍历一级文件夹,把二级文件夹的名称列出来

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]遍历一级文件夹,把二级文件夹的名称列出来  发帖心情 Post By:2021/2/4 16:52:00 [只看该作者]

如何遍历一级文件夹,把二级文件夹的名称列出来,作为ComboBox组合框的可选值

 Dim xt As String
    For Each File As String In FileSys.GetFiles(ProjectPath & "Attachments\")
        Dim a As String = file
        Dim b As String
        b = a.SubString(a.LastIndexOf("\"))
        tx = tx & “|” & b
    Next
   e.Form.Controls("ComboBox1").ComboList = tx

这个代码应该怎么改?
[此贴子已经被作者于2021/2/4 16:52:16编辑过]

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


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/4 17:23:00 [只看该作者]

Dim xt As String
For Each dir As String In FileSys.GetDirectories(ProjectPath & "Attachments\")
  
tx = tx & “|” & FileSys.GetName(dir)
Next
e.Form.Controls("ComboBox1").ComboList =tx 

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2021/2/4 17:32:00 [只看该作者]

 高手!高高高!谢谢!谢谢!

 回到顶部