• Sábado 9 de Noviembre de 2024, 02:19
« anterior próximo »
Páginas: [1]

Autor Tema:  Averiguar Si Hay Archivos *.exe En X Directorio.  (Leído 943 veces)

martinss

  • Miembro activo
  • **
  • Mensajes: 32
    • Ver Perfil
Averiguar Si Hay Archivos *.exe En X Directorio.
« en: Lunes 2 de Octubre de 2006, 20:01 »
0
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

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Averiguar Si Hay Archivos *.exe En X Directorio.
« Respuesta #1 en: Lunes 2 de Octubre de 2006, 20:59 »
0
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
El pasado son solo recuerdos, el futuro son solo sueños
Páginas: [1]
« anterior próximo »