LISTAR ARQUIVOS QUE INICIAM COM DETERMINADA LETRA

DANLEONHART 18/09/2011 22:03:31
#384604
Pessoal...

Estou criando um Form com um [Ô]Localizador[Ô] de arquivos...ele faz a busca na pasta informada pelo usuário, e deve listar todos os arquivos que iniciem com a letra, ou letras, informada em uma TextBox...
EX:
Se o usuário colocar a letra [Ô]a[Ô], deve ser listado todos arquivos encontrados na pasta que iniciem com a letra [Ô]a[Ô]...
Se colocar [Ô]ar[Ô], todos que iniciem com [Ô]ar[Ô]... e assim por diante...

Tentei com o InStr(), mas assim ele pega todos os arquivos que contenha a letra (ou letras), independente se esteja no inicio, meio ou fim...


Sub Buscar_Arquivo()
Dim v_Proc As String
v_Proc = txt1.Text

Set PST = FSO.GetFolder(s_Cam)
Lst1.Clear
  For Each Arq In PST.Files
   If InStr(Arq.Name, v_Proc) Then
     Lst1.AddItem Arq.Path
   End If
  Next
End Sub


Algumas variaveis estão declaradas no Módulo...
FEDERHEN 19/09/2011 08:12:40
#384617 Resposta escolhida
Sub Buscar_Arquivo()
Dim v_Proc As String
[txt-color=#e80000]v_Proc = txt1.Text[/txt-color]
Set PST = FSO.GetFolder(s_Cam)
Lst1.Clear
For Each Arq In PST.Files
[txt-color=#e80000] If mid(Arq.Name,1,Len(v_Proc)) = txt1.Text Then[/txt-color]
Lst1.AddItem Arq.Path
End If
Next
End Sub
ROBIU 19/09/2011 10:13:54
#384620
Click aqui para vê um tutorial sobre FSO. No final tem o código para licalizar arquivos com o like
3 - Localizando arquivos
DANLEONHART 19/09/2011 22:37:51
#384715
Com o método Like não conseguí...
Tópico encerrado , respostas não são mais permitidas
Voltar