|
Postada em 24/04/2007 14:40 hs
Me ajudem por favor!!!! Todo dia exporto uma tabela do meu BD (Access) para o formato xls. e depois renomeio o arquivo para uma outra extenção utilizando o FileDatatime, ou seja, o arquivo fica com o seguinte nome - WinCarimb23-04-2007.old
WinCarimb = (Nome do Arquivo) 23-04-2007 = Data do Arquivo) old = extenção do Arquivo
Todo dia faço a mesma rotina de backup. Agora porém preciso de uma rotina que verifique a existência do arquivo dentro do diretório de Backup (Caso exista, o mesmo é renomeado para qualquer nome.xls - caso contrário me exiba uma mensagem "Arquivo não encontrado") Dentro da pasta de backup exite vários arquivos como o citado seguido de datas anteriores. Por isso a necessidade de renomear o ultimo arquivo. DataDeOntem).
Obs.: Esta rotina precia procurar dentro da pasta de backup o arquivo WinCarimb(DataDeOntem).old
Segue a rotina de backup que utilizo:
Dim Voucher As String Voucher = "WinCarimb" & Format(FileDateTime("C:BackupTblVoucherCarimbados.xls"), "DD-MM-YYYY") If Dir$("C:Backup" & Voucher & ".old") <> "" Then Kill ("C:BackupTblVoucherCarimbado.xls") Else Name "C:BackupTblVoucherCarimbados.xls" As "C:Backup" & Voucher & ".old" End If
Agora preciso ler o ultimo arquivo gerado e renomeá-lo.
Se entenderam, me ajude por favor
Marcelino Neto Vb 6.0 Access2000 Dao
MFerreira...
|
|
|
|
|
Postada em 24/04/2007 14:52 hs
Vc já acha o arquivo OLD e se for a mesma data deleta este arquivo. Senão renomeia para OLD. Sua dúvida é encontrar o último arquivo gerado?
|
|
|
|
Postada em 24/04/2007 15:21 hs
Correto... Preciso ao clicar no botão Restaurar Vendas, (cmdRestaurar) a rotina ja localiza o ultimo arquivo .old (com data de ontem, pois existem varios arquivos com outras datas) e renomeia para TblVouchersCarimbados.xls
MFerreira...
|
|
|
|
Postada em 24/04/2007 16:07 hs
Hummmm... Colega, vc vai fazer o seguinte: diretorio = format(date-1,"DD-MM-YYYY") 'DATA DO DIA ANTERIOR diretorio = "C: Backup" & diretorio & ".old" If Dir$(diretorio) <> "" Then Name diretorio As "TblVouchersCarimbados.xls" Else msgbox "Arquivo não encontrado!",vbcritical,"Mensagem" End If
Este é um exemplo. Seria isto? Pesquei ou boiei? O ├ ────────────┐ └ │ │ │ │ │ │<º)))><
|
|
|
|
Postada em 24/04/2007 16:57 hs
Prezado ghost_jlp Sua Respota foi de grande vália. Obrigado pela dica, fiz somente duas alterações: Dim Diretorio As String 'Declaração Diretorio = Format(Date -1, "DD-MM-YYYY") 'Data do dia anterior Diretorio = "C:BackupWinCarimb" & Diretorio & ".old" 'Direcionei o Diretório If Dir$(Diretorio) <> "" Then FileCopy (Diretorio), ("C:BackupTblVoucherCarimbado.xls") 'Utilizei a instrução fylecopy para não apagar o registro renomeado Else MsgBox "Arquivo não encontrado!", vbCritical, "Mensagem" End If
MFerreira...
|
|
|