MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Copiar ficheiro mantendo data de criação

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7780
    Registrado : 05/11/2009

    Copiar ficheiro mantendo data de criação Empty Copiar ficheiro mantendo data de criação

    Mensagem  Alexandre Neves em 1/7/2011, 20:13

    Por solicitação de colega do fórum, para que possa ajudar todos os que necessitarem, criei função para copiar ficheiro mantendo a data de criação. Será útil quando se utiliza a data de criação para manipular ficheiros.

    Function CopiaFicheiro(EnderecoOrigem As String, EnderecoDestino As String) As Boolean
    'Pode utilizar mantendo as duas linhas do cabeçalho
    'criada por Alexandre Neves do fórum MaximoAccess
    On Error GoTo MostraErro
    Dim fso As FileSystemObject, fl As File, DataActual As Date

    DataActual = Date
    Set fso = New FileSystemObject

    Set fl = fso.GetFile(EnderecoOrigem)
    Date = fl.DateCreated
    fso.CopyFile EnderecoOrigem, EnderecoDestino
    Set fso = Nothing
    CopiaFicheiro = True
    Sair:
    Date = DataActual
    Exit Function
    MostraErro:
    If err.Number = 53 Then
    MsgBox "O ficheiro " & EnderecoOrigem & " não existe."
    Else
    MsgBox err.Number & vbCr & err.Description, , "Ficheiro não copiado"
    End If
    GoTo Sair
    End Function

      Data/hora atual: 29/11/2020, 16:41