RENOMEAR
Boa tarde!!!
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 leia o arquivo do dia (WinCarimb23-04-2007.old) e renomeia para um nome qualquer com a extenção xls.
Dentro da pasta de backup exite vários arquivo como o citado seguido de datas anteriores. Por isso a necessidade de renomear o ultimo arquivo por data atual.
Se entenderam, me ajude por favor
Marcelino Neto
Vb 6.0
Access2000
Dao
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 leia o arquivo do dia (WinCarimb23-04-2007.old) e renomeia para um nome qualquer com a extenção xls.
Dentro da pasta de backup exite vários arquivo como o citado seguido de datas anteriores. Por isso a necessidade de renomear o ultimo arquivo por data atual.
Se entenderam, me ajude por favor
Marcelino Neto
Vb 6.0
Access2000
Dao
Se eu entendi certo, voce quer escolher o dia e transformar o arquivo daquele dia em xls.
acho que seria isso entao
acho que seria isso entao
Dim sNomeVelho as String, sNomeNovo as String
sNomeVelho = "PastaDoArquivo\WinCarimb23-04-2007.old" 'o nome do seu arquivo de backup
sNomeNovo = Replace(sNomeVelho, ".old", ".xls") 'troca para a estensao xls
Name sNomeVelho As sNomeNovo ArquivoAtual = WinCarimb23-04-2007.old
NovoArquivo = "Teste" & Format(Date, "DD-MM-YYYY") & ".Xls"
FileCopy ArquivoAtual, NovoArquivo
Kill ArquivoAtual
Isso deve resolver
Boa sorte
Valeu pela resposta...
Vc entendeu quase bem
Veja meu código que renomeia o arquivo .xls para .old
Dim Voucher As String
Voucher = "WinCarimb" & Format(FileDateTime("C:\Backup\TblVoucherCarimbados.xls"), "DD-MM-YYYY")
If Dir$("C:\Backup\" & Voucher & ".old") <> "" Then
Kill ("C:\Backup\TblVoucherCarimbado.xls")
Else
Name "C:\Backup\TblVoucherCarimbados.xls" As "C:\Backup\" & Voucher & ".old"
End If
todos final de tarde executo esta rotina e então é gerado varios arquivos conforme a data atual.
Exemplo:
Ontem = WinCarimb22-04-2007
Hoje = WinCarimb23-04-2007
e por ai vai....
No dia seguinte no escritório preciso pegar o ultimo arquivo gerado, no caso (WinCarimb23-04-2007.old) e transforma-lo em um xls (TblVoucherCarimbado.xls) para recuperação das vendas desta data e atualizar um outro sistema.
Enrendeu????
Vc entendeu quase bem
Veja meu código que renomeia o arquivo .xls para .old
Dim Voucher As String
Voucher = "WinCarimb" & Format(FileDateTime("C:\Backup\TblVoucherCarimbados.xls"), "DD-MM-YYYY")
If Dir$("C:\Backup\" & Voucher & ".old") <> "" Then
Kill ("C:\Backup\TblVoucherCarimbado.xls")
Else
Name "C:\Backup\TblVoucherCarimbados.xls" As "C:\Backup\" & Voucher & ".old"
End If
todos final de tarde executo esta rotina e então é gerado varios arquivos conforme a data atual.
Exemplo:
Ontem = WinCarimb22-04-2007
Hoje = WinCarimb23-04-2007
e por ai vai....
No dia seguinte no escritório preciso pegar o ultimo arquivo gerado, no caso (WinCarimb23-04-2007.old) e transforma-lo em um xls (TblVoucherCarimbado.xls) para recuperação das vendas desta data e atualizar um outro sistema.
Enrendeu????
Então faz assim
ArquivoAtual = WinCarimb23-04-2007.old
DataAtual = format(date, "DD/MM/YYYY")
NovoArquivo = "Teste" & Format(DateAdd("d", -1, DataAtual), "DD-MM-YYYY") & ".Xls"
FileCopy ArquivoAtual, NovoArquivo
Kill ArquivoAtual
Tópico encerrado , respostas não são mais permitidas