Dicas Delphi - Manipulando Arquivos e Pastas

[DJ Thanatus]

Criar Pasta
Caso não existir, criará uma nova pasta


procedure CheckDirectoryInfo(path: String);
begin
if not DirectoryExists(path) then begin
ForceDirectories(path);
end;
end;


Exemplo de uso:


CheckDirectoryInfo('C:\Teste');




Verificar se determinado arquivo existe


function CheckFileInfo(path: String): Boolean;
begin
if FileExists(path) then begin
Result:=True;
end
else begin
Result:=False;
end;
end;


Exemplo de Uso:


if CheckFileInfo('C:\Teste\Arquivo.txt') = True then begin
ShowMessage('Arquivo encontrado');
end
else begin
ShowMessage('Arquivo não encontrado');
end;




Copiar Arquivo

Estrutura:
CopyFile(Arquivo de Origem, Destino, FailExist);

Exemplo de uso:


CopyFile(PChar('C:\Teste\Arquivo.txt'), PChar('C:\Jogo\Arquivo.txt'), False);



Deletar Arquivo

Estrutura:
DeleteFile(Nome do Arquivo);

Exemplo de uso:


DeleteFile('C:\Teste\Arquivo.txt');




Deletar Pasta

Estutura:
RemoveDir(Nome da Pasta);

Exemplo de uso:


RemoveDir('C:\Teste');




Renomear Arquivo

Estrutura:
RenameFile(Nome Atual, Novo Nome);

Exemplo de uso:


RenameFile('C:\Teste\Arquivo.txt', 'C:\Teste\NovoNome.txt');