MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Classificação de arquivos em uma pasta do windows busca do arquivo mais recente

    Compartilhe

    ruvierijunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 10/02/2014

    [Resolvido]Classificação de arquivos em uma pasta do windows busca do arquivo mais recente

    Mensagem  ruvierijunior em Sex 06 Maio 2016, 14:40

    Bom dia Amigos,

    Estou com um código de um arquivo excel, onde o mesmo busca o endereço do arquivo mais recente em uma pasta do windows, tentei adaptá-lo ao access, mas não funfou alguém poderia ver onde estou errando?

    Option Compare Database

    Private Function BuscarArquivos() As String
    Dim FileSystem As Object
    Dim Folder As Object
    Dim File As Variant
    Dim strCaminho As String
    Dim strArquivo As String

    Dim strDataHora As String


    Set FileSystem = CreateObject("Scripting.FileSystemObject")

    strCaminho = "P:\Willis\Arquivos\"


    Set Folder = FileSystem.GetFolder(strCaminho)

    Dim arr() As String

    For Each File In Folder.Files


    If Mid(File.Name, 1, 18) = "Ocorrencias_Diaria" Then
    ReDim Preserve arr(i)
    arr(i) = File.Name
    i = i + 1
    End If
    Next

    voidSortArray arr



    BuscarArquivos = arr(0)


    End Function

    Public Sub voidSortArray(arr)

    Dim strTemp As String
    Dim i As Long
    Dim j As Long
    Dim lngMin As Long
    Dim lngMax As Long
    lngMin = LBound(arr)
    lngMax = UBound(arr)

    For i = lngMin To lngMax - 1
    For j = i + 1 To lngMax
    If arr(i) < arr(j) Then
    strTemp = arr(i)
    arr(i) = arr(j)
    arr(j) = strTemp
    End If
    Next j
    Next i

    End Sub

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Classificação de arquivos em uma pasta do windows busca do arquivo mais recente

    Mensagem  ahteixeira em Dom 15 Maio 2016, 11:34

    Olá Junior,
    você pode obter a data da criação do ficheiro, data do ultimo acesso ou modificação, veja:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Código utilizado na imagem:
    Código:
    Sub TesteDatas()
        Dim FileSystem As Object
        Dim Folder As Object
        Dim File As Variant
        Dim strCaminho As String
        
            Set FileSystem = CreateObject("Scripting.FileSystemObject")
            strCaminho = Application.CurrentProject.Path
            Set Folder = FileSystem.GetFolder(strCaminho)
          
            For Each File In Folder.Files
                Debug.Print File.Name & " | " & File.DateCreated & " | " & File.DateLastAccessed & " | " & File.DateLastModified
            Next
    End Sub

    Abra um Modulo cole e prima a tecla F5.
    Fica a dica, espero que ajude.
    Abraço

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Classificação de arquivos em uma pasta do windows busca do arquivo mais recente

    Mensagem  ahteixeira em Seg 06 Jun 2016, 12:17

    Olá Junior, como ficou a situação!
    Os utilizadores do fórum merecem e agradecem o retorno.
    Ficamos aguardar.
    Abraço

    ruvierijunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 10/02/2014

    Re: [Resolvido]Classificação de arquivos em uma pasta do windows busca do arquivo mais recente

    Mensagem  ruvierijunior em Ter 26 Jul 2016, 20:23

    Desculpe, pensei que havia enviado a resposta.

    Acho que não cliquei em enviar, obrigado pela ajuda. consegui resolver.

    Very Happy Very Happy

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Classificação de arquivos em uma pasta do windows busca do arquivo mais recente

    Mensagem  ahteixeira em Qua 27 Jul 2016, 11:17

    Olá Junior,
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Seg 05 Dez 2016, 04:25