SubDiretorios

20/05/2003

2

Usa esse código:

[b:8edf674622]var[/b:8edf674622]
Sr: TSearchRec;
ret: integer;
[b:8edf674622]begin[/b:8edf674622]
ret:=FindFirst(´C:\Pasta\*.*´,faDirectory, Sr);
[b:8edf674622]while[/b:8edf674622](ret = 0) [b:8edf674622]do[/b:8edf674622]
[b:8edf674622]begin[/b:8edf674622]
[b:8edf674622]if [/b:8edf674622]Sr.Attr = faDirectory [b:8edf674622]then[/b:8edf674622]
ListBox1.Items.Add(Srec.Name);
ret := FindNext(Sr);
[b:8edf674622]end;[/b:8edf674622]

Com ele voce lista todos os subdiretórios da Pasta
[color=red:8edf674622]Atenção: Você tem que colocar o *.* depois da Pasta![/color:8edf674622]


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar