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

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?

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

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
 ├ ────────────┐
 └­                       │
                          │
                          │
                          │
                          │
                          │<º)))><

 

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