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

    Encontrar o arquivo com a maior data de criação (Data em que foi criado o Arquivo)

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Encontrar o arquivo com a maior data de criação (Data em que foi criado o Arquivo) Empty Encontrar o arquivo com a maior data de criação (Data em que foi criado o Arquivo)

    Mensagem  HARYSOHN em 29/5/2013, 21:32

    Uma pequena função porém que poderá ser bastante últil... A estou utilizando para restauração de Backup's contidos em uma pasta....


    Sub VerificaDataArq()
    Dim fso, Diretorio As String, Pasta, Arquivo
    Dim DtData As Date, DtDataMax As Date
    Dim ArquivoMax As String
    Diretorio = CurrentProject.Path & "\Backup"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Pasta = fso.GetFolder(Diretorio)
    For Each Arquivo In Pasta.Files
    If Arquivo Like "*.accdb" Then
    DtData = Format(Arquivo.DateCreated, "dd-mm-yyyy")
    If DtData > DtDataMax Then
    DtDataMax = DtData
    ArquivoMax = Arquivo.Name
    End If
    End If
    Next
    MsgBox "Maior Data " & DtDataMax & " " & Arquivo & "", vbInformation, "Atenção"
    Set fso = Nothing: Set Pasta = Nothing
    End Sub





    Enjoy!!!

    *****************************************************************************************************************



    Repositório de Exemplos Ms Access
    Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
    todos os Utilizadores Cadastrados.
    Não tirar duvidas nesta sala.

      Data/hora atual: 4/12/2020, 13:36