¿Cómo saber si una carpeta tiene archivos?
¿Cómo saber si una carpeta tiene archivos de texto? Quisiera pedirle de favor me ayude a realizar un programa que al correr me diga si tiene archivos una carpeta definida en el programa. Gracias mi correo es [email protected]
1 respuesta
Respuesta de falvarez
1
Usa lo siguiente:
=ADIR(VEC,"C:\SISTEMA\*.TXT") && Cargo un vector con las propiedades de todos los archivos de texto en la carpeta SISTEMA
IF ALEN(VEC)>0 && Si hay archivos de Texto
FOR I=1 TO ALEN(VEC) STEP 5
WAIT VEC(I) WIND && Muestro el nombre del archivo de texto
ENDFOR
ELSE
= MESSAGEBOX("NO EXISTEN ARCHIVOS DE TEXTO, 16, "")
Endif
=ADIR(VEC,"C:\SISTEMA\*.TXT") && Cargo un vector con las propiedades de todos los archivos de texto en la carpeta SISTEMA
IF ALEN(VEC)>0 && Si hay archivos de Texto
FOR I=1 TO ALEN(VEC) STEP 5
WAIT VEC(I) WIND && Muestro el nombre del archivo de texto
ENDFOR
ELSE
= MESSAGEBOX("NO EXISTEN ARCHIVOS DE TEXTO, 16, "")
Endif
