Fórum Criar pastas #244294

function TForm1.NomeValido(Nome: string): string;
const
  CaracteresInvalidos: string = ´\/:*?"<>|´;
var
  i: integer;        
begin
  Result := Nome;
  for i := 1 to Length(CaracteresInvalidos) do
    Result := StringReplace(Result, CaracteresInvalidos[i], ´_´, [rfReplaceAll]);
end;
    
procedure TForm1.CriaDiretorio(Diretorio: string);
begin
  if not DirectoryExists(Diretorio) then
    if not CreateDir(Diretorio) then
      raise Exception.Create(´Não foi possível criar ´ + Diretorio);
end;

procedure TForm1.ClientDataSet1AfterPost(DataSet: TDataSet); //Ou no evento q achar melhor
begin
  CriaDiretorio(´C:\goiaba´);
  CriaDiretorio(´C:\goiaba\´ + NomeValido(edtNomeCliente.Text));
end;

procedure TForm1.CriaDiretorio(Diretorio: string); 
begin 
  if not DirectoryExists(Diretorio) then 
    if not CreateDir(Diretorio) then 
      raise Exception.Create(´Não foi possível criar ´ + Diretorio); 
end;