Comando MS-DOS para nome de arquivo

[Alexandre Costa]

Olá, Pessoal!

No meu backup eu crio um nome de arquivo que inclui a data. Utilizo para isso o rar.

Depois de criados os arquivos compactados, eu queria criar uma pasta com o nome deles para armazená-los. Estou fazendo isso manualmente.



Tem algum comando do DOS que pego a data da criacao de algum arquivo e uso isso para ser o nome da pasta a ser criada???



Abaixo estão os comandos do meu BACKUP.BAT

---------------

@ECHO OFF
@CLS
@ECHO --------------------------------------------------------------------------------
@ECHO INICIANDO COPIA DOS ARQUIVOS DO SISTEMA

COPY I:\ADV\00\EMPRESAS.DBF I:\ADV\00\INTEGRID
COPY I:\ADV\00\CONFIG.DBF I:\ADV\00\INTEGRID
COPY I:\ADV\00\ACESSOFU.DBF I:\ADV\00\INTEGRID

I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_00_ "I:\Adv\00\*.DBF"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_01_ "I:\Adv\01\*.DBF"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_02_ "I:\Adv\02\*.DBF"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_03_ "I:\Adv\03\*.DBF"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_04_ "I:\Adv\04\*.DBF"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_05_ "I:\Adv\05\*.DBF"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_ATUALIZA_ "I:\Adv\ATUALIZA"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_BANCOS_ "I:\Adv\BANCOS"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_EPA_ "I:\Adv\EPA"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_SISTEMA_ "I:\Adv\SISTEMA\"
I:\dos6.2\RAR.exe A -o+ -agDD-MM-YYYY SISTEMA_TRANSMIS_ "I:\Adv\TRANSMIS"

@ECHO TERMINANDO COPIA DOS ARQUIVOS DO SISTEMA
@ECHO --------------------------------------------------------------------------------

@ECHO TRANSFERINDO ARQUIVOS PARA A PASTA DE BACKUP

MOVE *.RAR E:\BACKUP_REDE

@ECHO BACKUP FINALIZADO
CLS
EXIT

---------------------------------------



[]s,

Alexandre

[gvc]

Quando eu tive que fazer algo parecido, criei um programa clipper para isso.
Vc pode inclusive passar parâmetros para o seu programa.

Vc pode tb usar seu programa clipper para criar o seu .BAT e mandar executá-lo.

[rochinha]

Amiguinho

Se voce esta criando um backup naquele momento, pode muito bem sacar de usar a DTOC().

Exemplo:

FUNCTION MYBACKUP()
ErrFile := "BACKUP.BAT"
ret_line := "chr(13)+chr(10)"
ErrHandle := FCREATE(errfile)
FWRITE(errhandle,[@ECHO OFF])
FWRITE(errhandle,[@CLS])
FWRITE(errhandle,[@ECHO --------------------------------------------------------------------------------])
FWRITE(errhandle,[@ECHO INICIANDO COPIA DOS ARQUIVOS DO SISTEMA])
FWRITE(errhandle,[])
FWRITE(errhandle,[COPY I:\ADV\00\EMPRESAS.DBF I:\ADV\00\INTEGRID])
FWRITE(errhandle,[COPY I:\ADV\00\CONFIG.DBF I:\ADV\00\INTEGRID])
FWRITE(errhandle,[COPY I:\ADV\00\ACESSOFU.DBF I:\ADV\00\INTEGRID])
FWRITE(errhandle,[])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_00_ "I:\Adv\00\*.DBF"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_01_ "I:\Adv\01\*.DBF"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_02_ "I:\Adv\02\*.DBF"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_03_ "I:\Adv\03\*.DBF"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_04_ "I:\Adv\04\*.DBF"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_05_ "I:\Adv\05\*.DBF"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_ATUALIZA_ "I:\Adv\ATUALIZA"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_BANCOS_ "I:\Adv\BANCOS"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_EPA_ "I:\Adv\EPA"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_SISTEMA_ "I:\Adv\SISTEMA\"])
FWRITE(errhandle,[I:\dos6.2\RAR.exe A -o+ -ag]+DTOC(DATE())+[ SISTEMA_TRANSMIS_ "I:\Adv\TRANSMIS"])
FWRITE(errhandle,[])
FWRITE(errhandle,[@ECHO TERMINANDO COPIA DOS ARQUIVOS DO SISTEMA])
FWRITE(errhandle,[@ECHO --------------------------------------------------------------------------------])
FWRITE(errhandle,[])
FWRITE(errhandle,[@ECHO TRANSFERINDO ARQUIVOS PARA A PASTA DE BACKUP])
FWRITE(errhandle,[])
FWRITE(errhandle,[MOVE *.RAR E:\BACKUP_REDE])
FWRITE(errhandle,[])
FWRITE(errhandle,[@ECHO BACKUP FINALIZADO])
FWRITE(errhandle,[CLS])
FWRITE(errhandle,[EXIT])
FCLOSE(errhandle)
__RUN(ErrFile)
RETURN .T.

Esta função cria o arquivo .BAT necessario para execução do backup e as modificações que eu fiz parecem ser o que voce necessita.

@BRAÇOS :?)

[Alexandre Costa]

Pessoal, é bem dessa idéia que eu precisava. Vou mesmo criar um executável que gera o .bat para fazer o backup!!

Obrigado pela ajuda!

[]s,

Alexandre