如何在一个listbox控件中显示目录名.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 27 行

为 什 么 不 采 用 目 录 控 件 和 文 件 列 表 控 件 ？ 那 样 的 话 会 十 分 之 简 单 。 如 果 真 用 list控 件 的 话 ， 程 序 如 下 ： 
    新 建 一 个 工 程 ， 在 窗 口 中 放 入 两 个 LIST控 件 ， 分 别 是 LIST1和 LIST2 
     
    Private Sub Form_Load() 
     List1.Clear 
     List2.Clear 
     
     searchdir = "c:\*." 
     'VB的 DIR函 数 不 知 道 是 不 是 有 问 题 ， 如 果 只 用 dir("c:\",vbDirectory)的 话 ， 
    会 显 示 出 所 有 目 录 和 文 件 。 这 里 用 *.是 因 为 大 多 数 情 况 下 没 有 人 用 ?.?的 形 式 来 
    建 立 目 录 。 
     
     founddir = Dir(searchdir, vbDirectory) 
     While founddir <> "" 
     List1.AddItem founddir 
     founddir = Dir() 
     Wend 
     
     searchfile = "c:\*.log" 
     foundfile = Dir(searchfile, vbNormal) 
     While foundfile <> "" 
     List2.AddItem foundfile 
     foundfile = Dir() 
     Wend 
     
    End Sub 
<END>