以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]遍历一级文件夹，把二级文件夹的名称列出来  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160503)
--  作者：2425004926
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：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
--  发布时间：2021/2/4 17:32:00
--  
 高手！高高高！谢谢！谢谢！