Pegar o nome do diretório

Coloque a ferramenta FileListBox ou DirectoryListBox que está na aba Win 3.1.

Voce recupera o nome do diretório na propriedade directory de qualquer uma das duas.

O nome vem com o path completo. Mas voce pode utilizar as funções
Extract para recuperar os detalhes. Vide os métodos dos mesmos no Help.

arquivo:=ExtractFileName(FileListBox1);

Marconi

:oops:

Corrija a linha

arquivo:=ExtractFileName(FileListBox1.directory);

:wink:
Marconi

Outra Maneira é utilizar a função

var Diretório:string
begin
GetDir(0,diretorio);
ShowMessage(diretorio);
end;

utilize
0 => diretorio corrente
1 => drive A
2 => drive B
3 => drive C
... e assim por diante

Marconi