Programación General > Visual Basic 6.0 e inferiores

 Averiguar Si Hay Archivos *.exe En X Directorio.

(1/1)

martinss:
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

RadicalEd:
Puedes utilizar la función Dir para eso:

--- Código: Text ---archivo = Dir("Directorio\*.exe")While archivo <> ""'Se busca el siguiente archivoarchivo = Dircanti = canti + 1WendMsgBox ("Hay: " & canti & " archivos en la carpeta " & archivo) Ojala te sirva.
Chao

Navegación

[0] Índice de Mensajes