[Basketman]

Подскажите пожалуйста, как сохранить в txt всю файловую систему (файлы, папки) в таком виде, как при выполнении следующих функций с использованием компонента shelltreeview:

shelltreeview1.FullExpand; {раскрытие всего дерева}
shelltreeview1.savetofile('C://1.txt');

Я бы воспользовался и этим способом, но дерево раскрывается очень очень долго((