Fórum Ler nome de arquivo #205837
12/01/2004
0
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?
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
Curtir tópico
+ 0
Responder
Posts
12/01/2004
Tuiobecker
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
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
Responder
Gostei + 0
12/01/2004
Cebikyn
Se existe um único arquivo no disquete:
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)