VERIFICAR EXISTENCIA DO ARQUIVO NO DIRETORIO
Boa tarde caros colegas!
Estou precisando de uma forma de saber se o arquivo já existe e se é igual em um especÃÂÂfico diretório, porém não através do nome, e sim através da data e hora, por exemplo.
Caso seja igual, ao copiar o novo arquivo para o diretorio, uma opçao de alterar o nome do novo arquivo para que não fique igual ao já existente.
Agradeço a atenção dos colegas.
Por favor, estou precisando disso com uma certa urgência.
Att, Leandro
Estou precisando de uma forma de saber se o arquivo já existe e se é igual em um especÃÂÂfico diretório, porém não através do nome, e sim através da data e hora, por exemplo.
Caso seja igual, ao copiar o novo arquivo para o diretorio, uma opçao de alterar o nome do novo arquivo para que não fique igual ao já existente.
Agradeço a atenção dos colegas.
Por favor, estou precisando disso com uma certa urgência.
Att, Leandro
Ninguém!?!??!
Por favor, estou necessitando muito disso.
Abraços a todos!
Por favor, estou necessitando muito disso.
Abraços a todos!
Não sei se é isso que quer, mas dê uma olhada.
Com essa função você pega a data e hora do arquivo:
Para Chamá-la:
DataHora = Format(DataArq(NomeArquivo), "mm/dd/yyyy hh:mm:ss")
Com essa função você pega a data e hora do arquivo:
Public Function DataArq(ByVal sARQ As String) As String
If Dir$(sARQ) <> "" Then
DataArq = FileDateTime(sARQ)
Else
DataArq = "ERRO"
End If
End Function
Para Chamá-la:
DataHora = Format(DataArq(NomeArquivo), "mm/dd/yyyy hh:mm:ss")
Tópico encerrado , respostas não são mais permitidas