Notifications
Clear all

Nome Arquivo

2 Posts
2 Usuários
0 Reactions
1,914 Visualizações
(@duvidoso)
Posts: 0
New Member
Topic starter
 

Pessoal creio que talvez isso seja simples, mas preciso muito pegar o nome de um arquivo.

Eu uso a função OpenFileDialog() ou seja abre uma janela para selecionar um arquivo até ai tudo bem consigo pegar até o caminho dele, mas eu queria que retornar-se o nome do Arquivo somente.

Exemplo Abro o OpenFileDialog, seleciono o arquivo "C:UserExemplo.txt" quero que pegue somente o nome do arquivo ou seja que retorne "Exemplo.txt"

 
Postado : 16/09/2016 12:42 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O ideal seria colocar a sua rotina completa para saber qual váriavel está utilizando, se for "caminho", para retornar o nome do arquivo pode utilizar "Dir(Caminho)", fica mais fácil você analizando na rotina abaixo, ela faz praticamente a mesma coisa, abre a caixa para selecionar o arquivo e retorna só o nome :

Sub AbrirArquivo()

    Dim Caminho As String 'Caminho do arquivo
    Dim fDialog As Office.FileDialog
    Dim nome As Variant
       
    Dim sNomeArquivo As String
       
    'Configura caixa de seleção do arquivo
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
        
    With fDialog
        .AllowMultiSelect = False 'Habilita ou desabilita a seleção de múltiplos arquivos
        .Title = "Selecionar arquivo..."
        '.InitialFileName =  'Caminho inicial para seleção, não utilizado no exemplo
           
        'Configura filtros da caixa de seleção
        .Filters.Clear 'Limpa os filtros
        .Filters.Add "Arquivos Excel - .xls", "*.xls" 'Adiciona filtro para arquivos .xlsb
           
        If .Show = True Then    'Se o parâmetro .Show for igual à True significa
                                'que algum arquivo foi selecionado
               
            Caminho = .SelectedItems.Item(1) 'Local + arquivo selecionados são passados para
               
            'Só o Nome sem o "Caminho"
            sNomeArquivo = Dir(Caminho)
       
            'Msg só para confirmação
            MsgBox sNomeArquivo
                 
        End If
           
    End With
       
End Sub

[]s

 
Postado : 16/09/2016 12:55 pm