Colocar Resposta 
 
Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
[Resolvido] Access 2007 - Preencher ListBox C/ Nome Ficheiro
04-01-2012, 17:53 (Esta mensagem foi modificada pela última vez a: 06-01-2012 11:48 por nioxys.)
Mensagem: #1
[Resolvido] Access 2007 - Preencher ListBox C/ Nome Ficheiro
Olá Smile

O seguinte código abre uma janela de diálogo que me permite seleccionar um ou mais ficheiros e listar esses mesmo ficheiros numa listbox, no entanto o que aparece na listbox é o caminho do ficheiro, por exemplo, C:\Pasta1\Pasta2\Ficheiro.pdf. Alguém sabe se é possível listar apenas o nome do ficheiro e a extensão? Ou seja, Ficheiro.pdf, por exemplo.

Código:
Private Sub btnSelect()
Dim f    As Object
Dim varFile As Variant

Set f = Application.FileDialog(3)

f.AllowMultiSelect = True

If f.Show = True Then
        For Each varFile In f.SelectedItems
            Me.Lboxfile.AddItem varFile
         Next
End If

End Sub

“A neutron walks into a bar and asks how much for a drink. The bartender replies, ‘For you, no charge.’” - Sheldon Cooper
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
06-01-2012, 10:01 (Esta mensagem foi modificada pela última vez a: 06-01-2012 10:01 por nioxys.)
Mensagem: #2
RE: [Dúvida] Access 2007 - Preencher ListBox C/ Nome Ficheiro
Depois de muita pesquisa e de uma ajuda preciosa consegui chegar ao resultado pretendido, bastou para isso substituir,

Citar:Me.Lboxfile.AddItem varFile

por

Citar:Me.Lboxfile.AddItem Mid(varFile, 1 + InStrRev(varFile, "\"))

“A neutron walks into a bar and asks how much for a drink. The bartender replies, ‘For you, no charge.’” - Sheldon Cooper
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
Colocar Resposta 


Saltar Fórum:


Utilizadores a ver este tópico: 1 Visitante(s)