SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: martinss en Lunes 2 de Octubre de 2006, 20:01

Título: Averiguar Si Hay Archivos *.exe En X Directorio.
Publicado por: martinss en Lunes 2 de Octubre de 2006, 20:01

Buenas tardes..

necesito un codigo para averiguar si hay un exe en X directorio
por ejemplo...

si tenemos c:\windows\ necesito averiguar si ese directorio tiene un *.exe

Título: Re: Averiguar Si Hay Archivos *.exe En X Directorio.
Publicado por: RadicalEd en Lunes 2 de Octubre de 2006, 20:59

Puedes utilizar la función Dir para eso:

Código: Text

1. archivo = Dir("Directorio\*.exe")
2. While archivo <> ""
3. 'Se busca el siguiente archivo
4. archivo = Dir
5. canti = canti + 1
6. Wend
7. MsgBox ("Hay: " & canti & " archivos en la carpeta " & archivo)
8.  

Ojala te sirva.
Chao