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

   
Vista:

CUANDO NO HAY ARCHIVOS EN UNA CARPETA

Publicado por Bekyna (294 intervenciones) el 14/07/2009 20:11:43
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:CUANDO NO HAY ARCHIVOS EN UNA CARPETA

Publicado por enrique (1041 intervenciones) el 14/07/2009 20:21:02
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

CUANDO NO HAY ARCHIVOS EN UNA CARPETA

Publicado por Mauricio (1367 intervenciones) el 29/07/2009 19:43:07
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar