Dicas Delphi - Manipulando Arquivos e Pastas

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

Código:

---

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

---

Exemplo de uso:

Código:

---

CheckDirectoryInfo('C:\Teste');

---

Verificar se determinado arquivo existe

Código:

---

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

---

Exemplo de Uso:

Código:

---

  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:

Código:

---

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

---

Deletar Arquivo

Estrutura:
DeleteFile(Nome do Arquivo);

Exemplo de uso:

Código:

---

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

---

Deletar Pasta

Estutura:
RemoveDir(Nome da Pasta);

Exemplo de uso:

Código:

---

RemoveDir('C:\Teste');

---

Renomear Arquivo

Estrutura:
RenameFile(Nome Atual, Novo Nome);

Exemplo de uso:

Código:

---

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

---