Estou precisando de uma função para deletar todos os arquivos de umas determinada pasta e depois excluir a pasta
Tentei fazer da seguinte forma, porém funciona a parte aonde deleta todos os arquivos de dentro da pasta... MAS, não deleta apasta.
O que estou fazendo de errado,?
** Essa parte FUNCIONA:
var
i: integer;
sr:TSearchRec;begin
I :=FindFirst('\\server\listagem\images\' + DBText1.caption + '\*.*', faAnyFile, SR);
while I = 0 do
begin
DeleteFile('\\server\listagem\images\' +DBText1.caption +'\' + SR.Name);
I := FindNext(SR);
Utilizamos cookies e tecnologias semelhantes de acordo com a nossa Política de Privacidade, e ao continuar navegando, você concorda com estas condições.
Pergunta
MagoDanger
Olá amigos, bom dia!
Estou precisando de uma função para deletar todos os arquivos de umas determinada pasta e depois excluir a pasta
Tentei fazer da seguinte forma, porém funciona a parte aonde deleta todos os arquivos de dentro da pasta... MAS, não deleta apasta.
O que estou fazendo de errado,?
** Essa parte FUNCIONA:
Erro apresentado: Incompatible types: 'String' and "PAnsiChar'
Obrigado, abraços!
Editado por MagoDangerLink para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.