Criar diretório com Mes e Ano do sistema
29/07/2008
0
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.
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???
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???
Shion86
Curtir tópico
+ 0
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
Se eu entendi direito, incrementa a variável mes:
Inc(mes) em seguida cria a pasta meses(mes)
Abraço, Ricardo
Responder
Clique aqui para fazer login e interagir na Comunidade :)