Adquirir Nomes dos Arquivos - Urgente
Preciso entrar em um diretório e saber o nome dos arquivos que há nele e depois pegar o nome de cada um dos arquivos e colocar em uma variável (matriz).
Quais são os comandos para que eu possa fazer isso
Obrigado
Quais são os comandos para que eu possa fazer isso
Obrigado
Ricardo Barbosa
Curtidas 0
Respostas
Crash
29/04/2003
Você pode usar o componente TFileListBox como uma variavel TStringList
ou TStrings, mas em outro caso:
Use o componente TFileListBox e o TDirectoryListBox ligados.
Especifique o Diretório ao TDirectoryListBox e faça um laço no TFileListBox:
var
I: Integer;
Variavel: TIPO;
beign
for I:= 0 to FileListBox1.Items.Count - 1 do
Variavel:= FileListBox1.FileName;
end;
Isso grava o nome completo do arquivo na variavel, inclusive o caminho do diretorio.
flws
ou TStrings, mas em outro caso:
Use o componente TFileListBox e o TDirectoryListBox ligados.
Especifique o Diretório ao TDirectoryListBox e faça um laço no TFileListBox:
var
I: Integer;
Variavel: TIPO;
beign
for I:= 0 to FileListBox1.Items.Count - 1 do
Variavel:= FileListBox1.FileName;
end;
Isso grava o nome completo do arquivo na variavel, inclusive o caminho do diretorio.
flws
GOSTEI 0
L!nk!n
29/04/2003
CrasH, e se eu quiser pegar separadamente o nome dos arquivos e o caminho da pasta onde os arquivos estão gravados???
Valew!!!
Valew!!!
GOSTEI 0