Fórum Nome do arquivo sem sua extensão #242396
10/07/2004
0
Olá pessoal,
Sou iniciante em delphi e preciso de uma ajudinha.
Tenho um ListBox onde carergo o nome de arquivos de uma pasta. Gostaria de colocar somente o nome dos arquivos, sem suas extensões.
Sei que tem um jeito facil de fazer isso mas naun sei como.
Espero que possam me ajudar.
[]´s
Samuel Gubert
Sou iniciante em delphi e preciso de uma ajudinha.
Tenho um ListBox onde carergo o nome de arquivos de uma pasta. Gostaria de colocar somente o nome dos arquivos, sem suas extensões.
Sei que tem um jeito facil de fazer isso mas naun sei como.
Espero que possam me ajudar.
[]´s
Samuel Gubert
Sgubert
Curtir tópico
+ 0
Responder
Posts
11/07/2004
Alves
De uma olhada no código abaixo, isso vai te ajudar...
esta esta ´.jpg´ é so deixar em branco e exibir o resultado na listBox.
Obs. nesse exemplo ele pega todos os arquivos com extensao .lib e troca o por .jpg deixando o nome do arquivo intacto.
esta esta ´.jpg´ é so deixar em branco e exibir o resultado na listBox.
Obs. nesse exemplo ele pega todos os arquivos com extensao .lib e troca o por .jpg deixando o nome do arquivo intacto.
procedure TFrmPrincipal.Timer_ArquivosTimer(Sender: TObject);
var
I: integer;
Origem: String;
Begin
Lista_Diretorio.Directory := ´c:\teste\´;
Filtro.ItemIndex := 4;
Lista_Arquivos.Update;
Filtro.Update;
I := FindFirst(´c:\teste\*.txt´, faAnyFile, SR);
while I = 0 do
Begin
if (SR.Attr and faDirectory) <> faDirectory then
begin
Origem := ´c:\teste\´ + SR.Name;
CopyFile(PChar(Origem), PChar(ChangeFileExt(Origem,´.jpg´)),False);
Sleep(5);
Barra.Progress := Trunc(I * 100 / Lista_Arquivos.Items.Count-1);
StatusBar1.Panels[0].Text := ´Renomeando o Arquivo: ´ + SR.Name;
StatusBar1.Update;
DeleteFile(Origem);
end;
I := FindNext(SR);
end;
Lista_Arquivos.Update;
Sleep(10);
Timer_Arquivos.Enabled := False;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)