Ler nome de arquivo

Delphi

12/01/2004

Como faço para saber o nome de um arquivo que está no disquete?

Tenho um disquete com apenas um arquivo. Ao pressionar o botao, quero jogar o nome deste arquivo em uma variavel. Qual o comando usar?


Fabiomiranda

Fabiomiranda

Curtidas 0

Respostas

Tuiobecker

Tuiobecker

12/01/2004

Olá
vc pode colocar um opendialog para o usuario escolher qual o arquivo ele quer usar
e dai pega o nome do arquivo pela propriedade filename

flw

tuiobecker


GOSTEI 0
Cebikyn

Cebikyn

12/01/2004

Se existe um único arquivo no disquete:

var
  search : TSearchRec;
begin
  if FindFirst(´A:\*.*´, $23, search) = 0 then
    Variavel := Search.Name; // Aqui vc pega o nome do arquivo

  FindClose(search);
end;


Note que o código pega apenas o nome, sem o A:\. Se quiser retornar o endereço completo,substitua

Variavel := Search.Name;

por

Variavel := ´A:\´+Search.Name;


GOSTEI 0
POSTAR