Tema: Averiguar Si Hay Archivos *.exe En X Directorio.
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 02/10/2006, 12:47
Avatar de tazzito
tazzito
 
Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 9 meses
Puntos: 2
Dim strArchivo As String
strArchivo = Dir(Trim(txtDirectorio.txt) & "*.exe" )
While Len(strArchivo)
List1.AddItem strArchivo 'agrega el archivo
strArchivo = Dir
Wend