Fórum Criar diretório com Mes e Ano do sistema #361770

program CRIAR_PASTA;

{$APPTYPE CONSOLE}

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  FileCtrl;

var
  vData : TDate;
  nrdia: Integer;
  meses: array[1..12] of String;
  dia, mes, ano: Word;
begin

  meses[1]:= ´Janeiro´;
  meses[2]:= ´Fevereiro´;
  meses[3]:= ´Março´;
  meses[4]:= ´Abril´;
  meses[5]:= ´Maio´;
  meses[6]:= ´Junho´;
  meses[7]:= ´Julho´;
  meses[8]:= ´Agosto´;
  meses[9]:= ´Setembro´;
  meses[10]:= ´Outubro´;
  meses[11]:= ´Novembro´;
  meses[12]:= ´Dezembro´;
DecodeDate(DATE,ano,mes,dia);
  nrdia:= DayOfWeek(DATE);
//ShowMessage(´O mes atual é :´ + meses[mes] + ´ ´ + INTTOSTR(ano));

  if not DirectoryExists(´c:\´ + meses[mes] + ´ ´ + INTTOSTR(ano)) then
    if not CreateDir(´c:\´ + meses[mes] + ´ ´ + INTTOSTR(ano)) then
      raise Exception.Create(´Cannot create c:\´ + meses[mes] + ´ ´ + INTTOSTR(ano));

end.