como declarar extensiones

[tito_hack]

hola a tod@s
te un programa en visual basic 6 bueno apenas esta en desarrollo pero una de sus caracteristicas es buscar archivos en toda la pc, bueno si los busca pero tiene un detalle que siempre que quiero buscar un archivo siempre tengo que poner el nombre de este y su extención (arcivo.txt) porke si no es asi no raliza la buskeda ahora lo que quiero que me ayuden es a tener que evitar porner la extensión del archivo y solo tener que poner el nombre del archivo.
Ahora yo lo que e intendo hacer para lograr esto es declarando la extensiones como una variable pero no se puede me marca error.
pero bueno espero que me aya explicado y que me puedan ayudar.
gracias
byeeeeeeeeeeeeeeeee!

[naderST]

Pega codigo xD

[tito_hack]

hola oye gracias por kerer ayudar pero ya no es necesario ya pude hacerlo bueno no es lo que yo keria pero bueno, mira como solo estaba limitado a usar siertas extensiones lo unico que tube que hacer fue que fue que repitiera la funcion de buscar con dada una de extas estenciones, ahora el problema eske tarda un pokito mas y que utilizo mas codigo del necesario pero bueno eso sirve por el momento gracias a todos byeeeeeeee!

[SERBice]

idea: realiza una busqueda sin extension (archivo.* por ej) y depura los resultados antes de mostrarlos, si cumplen ciertas condiciones como extension txt, doc, rtf lo agregas, sino, la descartas. asi usas el mismo codigo que para una sola busqueda

[tito_hack]

gracias SERBice kreo que si tienes razon, noce porke noce me ocurrio kreo que siempre si necesito algo de ayuda bueno gracias, lo voy hacer asi como me lo sugieres y luego te cuento como kedo, gracias byeeeeeeeeeeeeeeeee!

[BlackZeroX]

para hacer eso de los comodines o algo similar al buscador que incorpora el Windows   te sugiero usar las apis





Public Declare Function FindClose Lib "kernel32" _
                    (ByVal hFindFile As Long) As Long
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
                    (ByVal lpFileName As String, _
                    lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
                    (ByVal hFindFile As Long, _
                    lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" _
                    (ByVal lpFileName As String) As Long
Public Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
        dwFileAttributes As Long
        ftCreationTime As FILETIME
        ftLastAccessTime As FILETIME
        ftLastWriteTime As FILETIME
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileName As String * 255
        cAlternate As String * 14
End Type

[BlackZeroX]

aqui esta el ejemplo:

pagina con ejemplos MUUUy buenos de las Apis de windows

http://allapi.mentalis.org/apilist/apilist.php

aca esta el ejemplo solo leelo y ve je es muy buen buscador

http://allapi.mentalis.org/apilist/FindFirstFile.shtml

[tito_hack]

gracias a todos pero lo de la buskeda ya me kedo lo que me asia falata era lo que me sujirio SERBice y eso es lo que me funciono ya hace lo que yo keria
byeeeee!