MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    FSO - problemas ao verificar a data de criação do arquivo

    Compartilhe

    Jamaica2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 13/10/2011

    FSO - problemas ao verificar a data de criação do arquivo

    Mensagem  Jamaica2 em Dom 01 Dez 2013, 15:09

    Prezados, bom dia!

    Estou criando em um projeto algumas funções para trabalhar com arquivos, utilizando o objeto FSO.

    As funções que são apenas 3, estão dentro de um módulo de classe, sendo uma para verificar se o arquivo existe, uma para copiar o arquivo e uma última para verificar a data do arquivo. As 2 primeiras estão funcionando perfeitamente, a terceira, quando eu a executo, aparece o seguinte erro:

    "O procedimento Property Let não foi definido e o procedimento Property Get não retornou um objeto"

    O código da função que está dando erro é:

    Function dataArquivo(ByVal argNomeArquivo As String) As Date
    'Utiliza o objeto fso para retornar a data de criação de um arquivo

    On Error GoTo tratamento

    Dim fso As New FileSystemObject
    Dim arquivo As Object

    If ExisteArquivo(argNomeArquivo) = True Then
    Set fso = CreateObject("scripting.filesystemobject")
    With fso
       Set arquivo = .GetFile(argNomeArquivo)
    With arquivo
    dataArquivo = .DateCreated(argNomeArquivo)
    End With

    End With
    End If

    saida:
    Exit Function

    tratamento:
    MsgBox Err.Description
    dataArquivo = #1/1/1900#
    Resume saida

    End Function


    A função acima chama a procedimento ExisteArquivo, cujo código está abaixo:

    Function ExisteArquivo(ByVal argNomeArquivo As String) As Boolean

    'verifica se um arquivo existe no diretorio informado, e retorna verdadeiro ou falso.
    On Error GoTo tratamento

    Dim fso As New FileSystemObject

    Set fso = CreateObject("Scripting.FileSystemObject")

    With fso

    If .FileExists(argNomeArquivo) Then
    ExisteArquivo = True
    Else
    ExisteArquivo = False
    End If

    End With

    saida:
    Exit Function

    tratamento:
    MsgBox Err.Description
    ExisteArquivo = False
    Resume saida


    End Function


    Alguém pode me ajudar?
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

    Re: FSO - problemas ao verificar a data de criação do arquivo

    Mensagem  criquio em Dom 01 Dez 2013, 15:21

    Talvez assim:

    dataArquivo = .DateCreated


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Jamaica2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 13/10/2011

    Re: FSO - problemas ao verificar a data de criação do arquivo

    Mensagem  Jamaica2 em Dom 01 Dez 2013, 15:42

    Obrigado Criquio!

    Era justamente este o ponto, não precisava passar o nome do arquivo de novo....

    Assunto resolvido!
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

    Re: FSO - problemas ao verificar a data de criação do arquivo

    Mensagem  criquio em Dom 01 Dez 2013, 16:05

    Só faltou clicar no botão Resolvido ali embaixo.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: Sab 22 Jul 2017, 05:34