08/04/2002, 14:11
|
 | | | Fecha de Ingreso: enero-2002
Mensajes: 55
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Re: Urgente quien me puede ayudar Gracias
Podrias intentar con algo como esto:
While Not rs.EOF
if mid(rs.Fields("Nom_doc"),len (rs.Fields("nom_doc")-3,3)<>"zip"
'Código que muestra los archivos
Endif
rs.MoveNext
Wend
Suerte y espero que te sea de ayuda
I.S.C Hilario Torres
|