FoxPro/Visual FoxPro - ERROR DE COPIADO, CUANDO NO HAY ARCHIVOS

Hola buen día, espero puedan ayudarme en lo siguiente:
Mediante código que puse en un botón, tomo los archivos de una carpeta y luego los pongo en otra, eso funciona bien, el detalle que si la carpeta no tienen archivos empiezan los problemas porque marca errores, no se como indicarle que si dentro de la carpeta no hay archivos entonces que no entre al siclo, realice lo siguiente pero no es lo adecuado, agradezco sus sugerencias.

IF !FILE(vbrigada)
COPY FILE "&vbrigada" TO "&vdescarga_prg"
SET DEFA TO "&vbrigada"
ERASE *
ELSE
MESSAGEBOX("La carpeta de la brigada"+nvbrig+"no tiene archivos que procesar","ATENCIÓN")
THISFORM.limpiar_etiquetas() &&limpiar etiquetas y bloquear
ENDIF

Saludos desde EDOMEX

a te respondi en el avanzado

Gracias, he realizado pruebas, pero no es posible utilizar la función ni adir(), ni alen(), porque me marca un error y por lo visto estas funciones solo pueden utilizarse con matrices y efectivamente no es le caso, lo que me serviría saber es cuantos archivos tiene mi carpeta.

Muchas gracias por tus sugerencias.

Bekyna

En el código que te pase la variable VDIR te devuelve la cantidad de archivos que tenes en la carpeta que selecciones a traves del GETDIR(), por lo que luego solo tienes que recorrer la matriz y copiar los archivos.

vDir = adir(madir,getdir()+"*.*)
if vDir>0
for i=1 to vDir
if !file(carpeta_destino+madir(i,1))
copy file (madir[i,1]) to (carpeta_destino)
endif
else
MESSAGEBOX("La carpeta de la brigada"+nvbrig+"no tiene archivos que
procesar","ATENCIÓN")
endif