主题：如何在组合框里获得文件夹下的文件名

1、

Dim str As String = ""
For Each f As String In FileSys.GetFiles("d:\")
    str &= FileSys.GetName(f) & "|"
Next

msgbox(str.Trim("|"))

2、

Dim str As String = ""
Dim zz As String = ""
Dim lt As String = ""
For Each f As String In FileSys.GetFiles("d:\")
    If f.Contains("离退") Then
        lt &= FileSys.GetName(f) & "|"
    ElseIf f.Contains("在职") Then
        zz &= FileSys.GetName(f) & "|"
    End If
    str &= FileSys.GetName(f) & "|"
Next

msgbox(str.Trim("|"))
msgbox(zz.Trim("|"))
msgbox(lt.Trim("|"))

Dim str As String = ""
Dim zz As String = ""
Dim lt As String = ""
For Each f As String In FileSys.GetFiles("d:\")
    If f.Contains("离退") Then
        lt &= FileSys.GetName(f).Replace("离退休信息.xy", "") & "|"
    ElseIf f.Contains("在职") Then
        zz &= FileSys.GetName(f).Replace("在职信息.xy", "") & "|"
    End If
    str &= FileSys.GetName(f) & "|"
Next

msgbox(str.Trim("|"))
msgbox(zz.Trim("|"))
msgbox(lt.Trim("|"))

Dim xingming As WinForm.ComboBox = e.Form.Controls("姓名")
xingming.ComboList = zz

Dim str As new List(Of String)
Dim zz As new List(Of String)
Dim lt As new List(Of String)

For Each f As String In FileSys.GetFiles("D:\")
    If f.Contains("离退") Then
        lt.add(FileSys.GetName(f).Replace("离退信息.xh", ""))
    ElseIf f.Contains("在职") Then
        zz.add( FileSys.GetName(f).Replace("在职信息.xh", ""))
    End If
    str.Add(FileSys.GetName(f))
Next
Dim azz() As String = zz.ToArray
Array.Sort(azz)
Dim szz As String = String.Join("|", azz)
msgbox(szz)
Dim alt() As String = lt.ToArray
Array.Sort(alt)
Dim slt As String = String.Join("|", alt)
msgbox(slt)
Dim astr() As String = str.ToArray
Array.Sort(str.ToArray)
Dim sstr As String = String.Join("|", astr)
msgbox(sstr )