RENOMEAR COM DATA

USUARIO.EXCLUIDOS 11/04/2007 18:04:02
#211352
Boa tarde galera!!!!

Preciso renomear alguns arquivos texto que meu sistema gera. Porém preciso tais arquivos sejam renomados para um determinado nome seguido da data de criação.
Exemplo:

Exportei o conteudo de um DBGRID para o formato excel, então seria assim:

cont110407 ou cont11-04-07 etc...

O nome pode ser qualquer um, desde que vem a data de criação junto.
Entenderam???

Marcelino Neto
VB 6.0
Access 2000
Dao
ALMARTI 12/04/2007 10:49:24
#211472 Resposta escolhida
Pesquise sobre VB e Atributos de Arquivos

'Num módulo:
Public Function DataArq(ByVal sArq As _
       String) As String
  If Dir$(sArq) <> "" Then
    DataArq = FileDateTime(sArq)
  Else
    DataArq = "ERRO"
  End If
End Function


'P/ chamar, no evento que você quizer:
Private Sub Command1_Click()
  Dim sVar As String
  sVar = DataArq("C:\Quadrado 02.BMP")
  If sVar <> "ERRO" Then
    Text1.Text = sVar
  End If
End Sub
HUGOSSOUZA 12/04/2007 11:02:06
#211476
vc ja tem um tópico abertosobre o mesmo assunto

vc pode fazer assim:

Name [nome] As [novoNome]
tem que colocar o caminho inteiro

ex:

Dim variavel As String
variavel = "xist" & Format(FileDateTime("D:\Programas\a.xls"), "DDMMYYYY")

Name "D:\Programas\a.xls" As "D:\Programas\" & variavel & ".xls"
USUARIO.EXCLUIDOS 12/04/2007 11:04:44
#211478
Cara, se for por somente a data que criou o arquivo (na hora q criou):

NomeArq = "cont" & Format(Date, "DDMMYY")


ou

NomeArq = "cont" & Format(Date, "DD-MM-YY")


Eu recomendaria colocar no formato YYYYMMDD que assim se ordenar em ordem alfabética fica pela data:

NomeArq = "cont" & Format(Date, "YYYYMMDD")


Ou com a hora:

NomeArq = "cont" & Format(Now, "YYYYMMDDHHMMSS")


Se for o que entendi é isso, qualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas
Voltar