C++ Builder 檔案系統瀏覽器實作：TreeView 遞歸掃描與 ListView 詳情顯示

利用 TTreeView 展示目錄樹結構，TListView 顯示檔案詳細資訊，配合 TDriveComboBox 切換磁碟機，構建經典的雙面板檔案瀏覽器介面。本文提供完整遞歸掃描與事件聯動程式碼。

介面佈局

• 左側：TDriveComboBox (選磁碟) + TTreeView (目錄樹)。
• 右側：TListView (ViewStyle=vsReport)，欄位：名稱、大小、類型、修改時間。

核心類別成員

TTreeNode* currnode;  // 遞歸掃描當前父節點
int DirCount, FileCount, DriveCount;

遞歸掃描建立目錄樹: TreeInit

void TForm1::TreeInit(String path, TTreeNode *mynode) {
    TSearchRec sr;
    if (FindFirst(path + "\\*.*", faAnyFile, sr) == 0) {
        do {
            if ((sr.Attr & faDirectory) == faDirectory) {
                if (sr.Name != "." && sr.Name != "..") {
                    currnode = TreeView1->Items->AddChild(mynode, sr.Name);
                    TreeInit(path + "\\" + sr.Name, currnode); // 遞歸
                    DirCount++;
                }
            }
            // 檔案不加入樹 (可選擇性啟用)
        } while (FindNext(sr) == 0);
        FindClose(sr); // 重要：釋放搜尋控制代碼
    }
}

FormCreate: 初始化磁碟機與樹根節點

void __fastcall TForm1::FormCreate(TObject *Sender) {
    String Drive, path;
    DirCount = FileCount = 0;
    DriveCount = DriveComboBox1->Items->Count;
    TreeView1->Items->BeginUpdate();
    TreeView1->Items->Clear();
    currnode = TreeView1->Items->Add(TreeView1->Selected, "我的電腦");
    currnode->Selected = true;

    for (int i = 0; i < DriveCount; i++) {
        Drive = DriveComboBox1->Items->Strings[i].SubString(1, 1);
        path = Drive + ":";
        currnode = TreeView1->Items->AddChild(TreeView1->Selected, DriveComboBox1->Items->Strings[i]);
        TreeInit(path, currnode);
    }
    TreeView1->Items->EndUpdate();
}

TreeView 點擊事件: 更新 ListView 詳情

void __fastcall TForm1::TreeView1Click(TObject *Sender) {
    int i;
    String path;
    TTreeNode *node = TreeView1->Selected;

    // 1. 由節點向上遞歸構建完整路徑
    if (node->Level) { // 非根節點
        do {
            if (node->Level == 1) // 磁碟機節點 (如 "C:\")
                path = node->Text.SubString(1, 2) + (path.Length() ? "\\" : "") + path;
            else
                path = node->Text + (path.Length() ? "\\" : "") + path;
            node = node->Parent;
        } while (node->Level);

        // 2. 掃描目錄填充 ListView
        ListView1->Items->BeginUpdate();
        ListView1->Items->Clear();
        TSearchRec sr;
        if (FindFirst(path + "\\*.*", faAnyFile, sr) == 0) {
            do {
                if (sr.Name != "." && sr.Name != "..") {
                    TListItem *li = ListView1->Items->Add();
                    li->Caption = sr.Name;
                    if (sr.Attr == faDirectory) {
                        li->SubItems->Add("");           // 大小
                        li->SubItems->Add("檔案夾");      // 類型
                    } else {
                        li->SubItems->Add(IntToStr(sr.Size)); // 大小
                        li->SubItems->Add("檔案");         // 類型
                    }
                    li->SubItems->Add(FileDateToDateTime(sr.Time).DateTimeString()); // 時間
                }
            } while (FindNext(sr) == 0);
            FindClose(sr);
        }
        ListView1->AlphaSort(); // 按名稱排序
        ListView1->Items->EndUpdate();
    } else { // 根節點 "我的電腦"
        ListView1->Items->BeginUpdate();
        ListView1->Items->Clear();
        for (i = 0; i < TreeView1->Selected->Count; i++) {
            TListItem *li = ListView1->Items->Add();
            li->Caption = TreeView1->Selected->Item[i]->Text;
        }
        ListView1->Items->EndUpdate();
    }
}

關鍵技術點總結

進階擴充功能

1. 圖示支援：使用 TImageList + SHGetFileInfo 取得系統檔案圖示，TreeView->Images/ListView->SmallImages 關聯。
2. 延遲載入 (Virtual Tree)：大目錄下僅展開時掃描子目錄，節點 HasChildren 設為 true，OnExpanding 事件動態載入。
3. 檔案操作：ListView 右鍵選單實現複製、移動、刪除、重命名 (SHFileOperation)。
4. 過濾與搜尋：工具列輸入框即時過濾 ListView 項目。
5. 多執行緒掃描：耗時掃描移至背景執行緒，PostMessage 回主執行緒更新 UI。

常見問題排查

• TreeView 不顯示子目錄：檢查 FindFirst 路徑格式、權限 (需讀取權限)、faDirectory 判斷邏輯。
• ListView 欄位不對齊：確認 ViewStyle=vsReport、Columns 正確建立 (設計時或運行時 Columns->Add)。
• 網路磁碟機無法展開：TDriveComboBox 預設不含網路磁碟，需自行枚舉 WNetOpenEnum 或使用 TDirectoryListBox。

此範例展示了 VCL 檔案系統控制項的經典組合用法，代碼結構清晰，易於擴展為功能完整的檔案管理器核心模組。