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

Dim fls as string  = ProjectPath & "个人信息\"

Dim zzs as string

Dim Lts as string

For Each File As string In FileSys.GetFiles(fls)

  if File.Contains("在职信息.xy") Then

    zzs =zzs & File.split("在")(0) & "|" 

  Elseif File.Contains("离退休信息.xy") Then

    Lts =Lts & File.split("离")(0) & "|" 

  End if
Next

zzs =zzs.trim("|")  '在職列表

Lts =Lts.trim("|")   '離退休列表