FoxPro/Visual FoxPro - CUANDO NO HAY ARCHIVOS EN UNA CARPETA

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

vDir = adir(madir,getdir()+"*.*)
if vDir>0
&& proceso informacion
else
MESSAGEBOX("La carpeta de la brigada"+nvbrig+"no tiene archivos que
procesar","ATENCIÓN")
endif

Bekina, la funcion FILE tiene ciertos inconvenientes si usas un SET DEFA TO XXX, y ademas usas un SET PATH TO XX,YY,SSS,DDD
En este caso primero busca en el DEFA y si no lo encuentra lo busca en el PATH, entonces te dare unas alternativas para que las pruebes:
*
Opcion 1
Utilizar la función ADIR(), la cual, no presenta el inconveniente de la tan mencionada función FILE().
*
Function SureFile
LParameters tcFileName
RETURN (ADIR(laDummy, m.tcFileName) > 0)
EndFunction

*-------------
Opcion 2
Utilizando la función SYS(2000):
*
Function SureFile
LParameters tcFileName
RETURN NOT EMPTY(SYS(2000,m.tcFileName))
ENdFunction
*---
Opcion 3
Utilizar una API para llevar a cabo la labor:
*** En tu programa de inicio, solo una vez *****
declare Integer GetFileAttributes in win32api string @
****************************************
Function SureFile
LParameters tcFileName
return (GetFileAttributes(@m.tcFileName) <> -1)
EndFunction
*-------------------
Tu eliges cual usas!!!!!!!!!!!!!!!! Suerte