дерево каталогов

[salwator]

Всем привет!!У меня такая проблема))Не могу понять почему у меня ничего не выводит в компоненту TreeView , хотя транслятор всё пропускает)подскажите в чём проблема.

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
// Для поиска файлов в каталоге и его подкаталогах напишите следующий код:
void ListFiles(AnsiString path, TStrings* List)
{

// Эта процедура выводит список файлов и вызывает
// саму себя для всех каталогов
TSearchRec sr;

Form1->TreeView1->Items->Add(NULL, "My computer");

if (FindFirst(path+"*.*", faAnyFile, sr) == 0)
{
do
{
if (sr.Attr & faDirectory)
{
if (sr.Name!=".")
if (sr.Name!="..")
{
ListFiles(path+sr.Name+"",List);// Рекурсивный вызов
}
}
else
{
Form1->TreeView1->Items->AddChild(Form1->TreeView1->Items->Item[0], sr.Name);
}
}
while (FindNext(sr) == 0);
FindClose(sr);
}
Application->ProcessMessages();
}

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{

}

[Smitt&Wesson]

Переменной path не присвоено значение.

[salwator]

так ей по моему ничего присваивать и не нужно

вот решил сделать по другому,но у меня не получается зайти в подкаталог))

//---------------------------------------------------------------------------

#include <vcl.h>
#include <FileCtrl.hpp> // для доступа к SelectDirectory
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
TSearchRec String;


TreeView1->Items->Add(NULL, "My computer");

for (int a = 65; a< 91; a++)
	{
	AnsiString A = char(a);
	AnsiString B = ":\\";
	AnsiString C = "*.*";

	if (FindFirst(A + B + C, faDirectory, String) == 0)
	{
		TreeView1->Items->AddChild(TreeView1->Items->Item[0], A + B);

		for (int b = 0; b < TreeView1->Items->Count; b++)
		{
			if(TreeView1->Items->Item[b]->Text == A + B)
		   			{
		   
	   if ( FindFirst(A+B+C, faDirectory, String) == 0)
		  do
						  {
							TreeView1->Items->AddChild(TreeView1->Items->
							Item[b], String.Name);
							}
							while ( FindNext(String) == 0 );
											   }
		 						FindClose(String);
									}

								}
				FindClose(String);
		}
}

[Марат05]

Какие ошибки выдает?

[salwator]

ошибок нет.траслятор всё прпускает.в TreeView выводит только диски и каталоги в дисках,а то что в подкаалогах не выводит.не получается сделать так чтобы выводило и подкаталоги.

[salwator]

я уже сделал чтобы у меня заходило в подкаталоги и выводило,но появилась другая проблема.все папки которые я нашёл во всех подкаталогах у меня выводит в первом подкаталоге.как сделать так,чтобы найденные папки выводились правильно??

//---------------------------------------------------------------------------

#include <vcl.h>
#include <FileCtrl.hpp> // для доступа к SelectDirectory
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString oldDir;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
TSearchRec String,String1;
int i=0;
AnsiString path;
TreeView1->Items->Add(NULL, "My computer");

for (int a = 65; a< 91; a++)
	{
	 AnsiString A = char(a);
	 AnsiString B = ":\\";
	 AnsiString C = "*.*";

	 if (FindFirst(A + B + C, faDirectory, String) == 0)
		{
		TreeView1->Items->AddChild(TreeView1->Items->Item[0], A + B);
		for (int b = 0; b < TreeView1->Items->Count; b++)
			{
			 if(TreeView1->Items->Item[b]->Text == A + B)
				{
				if (FindFirst(A + B + C, faDirectory, String) == 0)
				{
				do
					{
					TreeView1->Items->AddChild(TreeView1->Items->Item[b], String.Name);
					if(String.Attr==faDirectory)
						if (FindFirst(A + B +String.Name+"\\"+C, faAnyFile, String1) == 0)
							do
								{
								TreeView1->Items->AddChild(TreeView1->Items->Item[b+1], String1.Name);
								}
							while (FindNext(String1) == 0);
                    FindClose(String1);
					}
				while (FindNext(String) == 0);

				FindClose(String);
				}
				}
			 }
		}

	 }
	 FindClose(String);

}
//---------------------------------------------------------------------------

[salwator]

возможно я с циклом запутался или вывод не правильный написал.помогите разобраться