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

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

    Compartilhe
    avatar
    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    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

    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4161
    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
    avatar
    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    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!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4161
    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: Qui 20 Jul 2017, 15:23