特定のフォルダとtreeviewの構成を合わせるには？ (ID:9796)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 treeviewの使い方がなかなか理解できないので教えてください。 やりたいことは、フォームを開いた時点で 「C:\test」フォルダ以下すべてのサブフォルダの構成を調べ、 treeviewも同じ構成にしたいのです。 「C:\test」フォルダ内だけであればなんとかできたのですが、 階層が一段、二段と深くなるとわかりません。 どなたか宜しくお願いします。 //testフォルダ内のみ出来た物 procedure TForm2.view; var SR: TSearchRec; Res: integer; begin Res := FindFirst('C\:test' + '\*',faDirectory,SR); while res = 0 do begin treeview1.Items.Add(nil,SR.Name); res := findnext(SR); end; findclose(SR); end;