+- Forum Pplware (http://forum.pplware.com)
+-- Fórum: Software (/forumdisplay.php?fid=4)
+--- Fórum: Aplicações (/forumdisplay.php?fid=12)
+--- Tópico: [Resolvido] Access 2007 - Preencher ListBox C/ Nome Ficheiro (/showthread.php?tid=10466)
[Resolvido] Access 2007 - Preencher ListBox C/ Nome Ficheiro - nioxys - 04-01-2012 17:53
Olá
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 SubRE: [Dúvida] Access 2007 - Preencher ListBox C/ Nome Ficheiro - nioxys - 06-01-2012 10:01
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, "\"))