Averiguar Si Hay Archivos *.exe En X Directorio.

[XP.]

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

[tazzito]

Dim strArchivo As String
strArchivo = Dir(Trim(txtDirectorio.txt) & "*.exe" )
While Len(strArchivo)
List1.AddItem strArchivo 'agrega el archivo
strArchivo = Dir
Wend

[Insomnia]

Hola

También puedes utilizar el FileListBox con las propiedades .Path=Directorio y .Pattern=*.exe, de esa forma te quedarían los archivos con extensión exe en el FileListBox.

--Saludos--