Criar diretório com Mes e Ano do sistema

29/07/2008

3

Bom dia a todos,

Sou iniciante em delphi e estou criando um programa que cria uma pasta com o mes (por extenso) e o ano do sistema.
Consegui fazer, fiquei até feliz. Vou postar para vocês.




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.




Agora a parte em que travei, como que posso fazer para que quando ele detectar que já existe uma pasta criada já do mês, ele criar a do mês seguinte???


Responder

Posts

30/07/2008

Ricardo_ascii

Olá,

Se eu entendi direito, incrementa a variável mes:


Inc(mes) em seguida cria a pasta meses(mes)

Abraço, Ricardo


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira