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]Armazenar apenas nome do arquivo e extensão

    Compartilhe

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    [Resolvido]Armazenar apenas nome do arquivo e extensão

    Mensagem  luizzlcs em Qui 22 Out 2015, 20:07

    Boa tarde,

    Estou utilizando este código, porém ele traz o caminho completo do arquivo (D:\Fotos\DSC_0125.jpg), gostaria que retornasse apenas o nome do arquivo e a extensão (DSC_0125.jpg).



    Function AbrirRC() As String

    ' Requer referencia a Microsoft Office 11 Object Library
    On Error GoTo PROC_ERR

    Dim fd As FileDialog

    Set fd = Application.FileDialog(msoFileDialogFolderPicker)

    fd.Title = Trim(login.Usuario) & " " & "selecione um diretório"
    'fd.Filters.Add "Todos ficheiros", "*.*", 1

    fd.Show

    If (fd.SelectedItems.Count > 0) Then
    Forms!Padrão2.local = fd.SelectedItems(1)
    'MsbBox fd.SelectedItems(1), vbInformation, ""
    Else
    MsgBox Trim(login.Usuario) & " " & ", você não selecionou um diretório", vbExclamation, "Atenção"
    End If

    PROC_EXIT:
    Exit Function

    PROC_ERR:
    DoCmd.Hourglass False
    If err.Number = 3011 Then
    LocalXML = ""
    MsgBox ("Ficheiro inválido.")
    Else
    MsgBox err.Description
    End If
    Resume PROC_EXIT

    End Function


    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Armazenar apenas nome do arquivo e extensão

    Mensagem  biligo em Qui 22 Out 2015, 23:02

    Boas amigo,

    Em um projeto utilizo uma função pega aqui no fórum do mestre JPaulo:



    Ai pra buscar o arquivo utilizo:



    A questão é que utilizo em outras partes esta função mas ta ai uma maneira caso não lhe caiba soluções melhores

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Armazenar apenas nome do arquivo e extensão

    Mensagem  ahteixeira em Dom 13 Nov 2016, 11:58

    Olá Luiz Carlos, como ficou a situação?
    Os utilizadores do fórum merecem e agradecem o retorno.

    Caso seja o caso, não se esqueça de dar o tópico como resolvido, veja link abaixo como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Re: [Resolvido]Armazenar apenas nome do arquivo e extensão

    Mensagem  luizzlcs em Dom 13 Nov 2016, 15:58

    Obrigado! tudo foi resolvido!

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Armazenar apenas nome do arquivo e extensão

    Mensagem  ahteixeira em Seg 14 Nov 2016, 12:08

    Olá, Um ano depois é sempre bem-vindo o retorno.

    Antonio Felipe, obrigado pela partilha.
    Abraço

      Data/hora atual: Sab 03 Dez 2016, 02:25