ABRIR DIALOG COM FILTRO DE PESQUISA DE NOME, COMO?

PRIBENA 23/07/2010 10:20:31
#348243
Preciso abrir o Dialog com um filtro de pesqusia de nome. Alguém sabe como?
TECLA 23/07/2010 20:41:17
#348310
Especifique melhor o que deseja fazer.
MSMJUDAS 24/07/2010 09:11:27
#348320
Vc gostaria de um campo para digitar e buscar o arquivo em qualquer pasta/unidade independente da extensão? Se for, eu nunca ví e acho que não é possível.

Vc pode filtrar os arquivos, por ex.:

  Dim ofn As OPENFILENAME
    ofn.lStructSize = Len(ofn)
    ofn.hwndOwner = Me.hwnd
    ofn.hInstance = App.hInstance
    ofn.lpstrFilter = [Ô]Arquivos ZIP (*.zip)[Ô] + Chr$(0) + [Ô]*.zip[Ô] + Chr$(0) + [Ô]Documentos PDF (*.pdf)[Ô] + Chr$(0) + [Ô]*.pdf[Ô] + Chr$(0) + [Ô]Documentos DOC (*.doc)[Ô] + Chr$(0) + [Ô]*.doc[Ô] + Chr$(0) + [Ô]Todos (*)[Ô] + Chr$(0) + [Ô]*[Ô] + Chr$(0)
    ofn.lpstrFile = Space$(254)
    ofn.nMaxFile = 255
    ofn.lpstrFileTitle = Space$(254)
    ofn.nMaxFileTitle = 255
    ofn.lpstrInitialDir = CurDir
    ofn.lpstrTitle = [Ô]Localizar Arquivos[Ô]
    ofn.flags = 0
    Dim a
    a = GetOpenFileName(ofn)
    
    If (a) Then
    [ô]        MsgBox [Ô]File to Open: [Ô] + Trim$(ofn.lpstrFile)
        TxtAnexo.Text = Trim$(ofn.lpstrFile)
    Else
    [ô]        MsgBox [Ô]Cancel was pressed[Ô]
        TxtAnexo.Text = Empty
    End If
Tópico encerrado , respostas não são mais permitidas
Voltar