DirectoryOutline如何展开节点到指点目录?

Question

DirectoryOutline1.Drive :='F';
  DirectoryOutline1.Directory:='F:\xcel\2005年\12月\01';
  DirectoryOutline1.FullExpand;
但是无法展开

Answer 1

试试分解路径，用一个循环来实现下面的代码，一层一层地展开。
DirectoryOutline1.Items[DirectoryOutline1.GetTextItem('F:\')].Expand;
DirectoryOutline1.Items[DirectoryOutline1.GetTextItem('xcel')].Expand;
DirectoryOutline1.Items[DirectoryOutline1.GetTextItem('2005年')].Expand;
DirectoryOutline1.Items[DirectoryOutline1.GetTextItem('12月')].Expand;
DirectoryOutline1.SelectedItem:=DirectoryOutline1.GetTextItem('01');