VER DE UM ARQUIVO EXISTE E ABRI-LO

REIS 16/08/2011 14:06:10
#381824
Boa tarde.
tenho uma pasta onde guardo as capas das revistas de minha banca.
Salvo com nomes que juntam o codigo de barra e o numero da capa (9656484325215 & 325 & .jpg)
estou criando um campo(text1) onde ao digitar o codigo de barras ele procure se existe este arquivo.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim cp
If KeyAscii = 13 Then

cp = Text1.Text & [Ô]*.jpg[Ô]
If Dir((App.Path & [Ô]\capas\[Ô] & cp), vbArchive) <> [Ô][Ô] Then

Image1 = LoadPicture(App.Path & [Ô]\capas\[Ô] & cp)
End If
End If
End Sub

esta acontecendo erro quando busco usando o caracter curinga.
ja usei * % # e não deu certo.

Agradeço a ajuda.
MARCELO.TREZE 16/08/2011 20:37:57
#381847 Resposta escolhida
Você terá de usar o File System Object para fazer isto, então primeiro vá em project/references e selecione Microsoft Scripting Runtime

agora faça esta pequena alteração em seu código, Coloque um textbox, um listbox e um botão e cole

Dim fso As New FileSystemObject


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call procuraArquivos(fso.GetFolder(App.Path & [Ô]\capas\[Ô]))
End If
End Sub



Private Sub procuraArquivos(diretorio As Folder)
Dim arquivo As File
Dim subdiretorio As Folder

For Each arquivo In diretorio.Files
   If UCase(arquivo.Name) Like UCase(Text1.Text & [Ô]*.jpg[Ô]) Then
    List1.AddItem App.Path & [Ô]\capas\[Ô] & arquivo.Name
    End If
Next
End Sub


depois basta pegar o item desejado no listbox e exibilo no seu controle image

Private Sub List1_Click()
Image1.Picture = LoadPicture(List1.List(list1.ListIndex))
End Sub


veja se o resultado lhe agrada
REIS 17/08/2011 13:21:15
#381883
valeu Marcelo, vou testá-lo agora, obrigado.
REIS 21/08/2011 08:55:39
#382181
Marcelo, show de bola.
Obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar