為 什 么 不 采 用 目 錄 控 件 和 文 件 列 表 控 件 ？ 那 樣 的 話 會 十 分 之 簡 單 。 如 果 真 用 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>