USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Renomeando
mferreiraneto
LAGOA SANTA
MG - BRASIL
ENUNCIADA !
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

EmoçõesMFerreira...
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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?
   
mferreiraneto
LAGOA SANTA
MG - BRASIL
ENUNCIADA !
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

EmoçõesMFerreira...
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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?Emoções
 
Pesquei ou boiei?
 
 O
 ├ ────────────┐
 └­                       │
                          │
                          │
                          │
                          │
                          │<º)))><
 
Emoções
   
mferreiraneto
LAGOA SANTA
MG - BRASIL
ENUNCIADA !
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

EmoçõesMFerreira...
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página