Funcion Para Archivos

Revisa ADIR te crea un arreglo con los nombres y otros datos de los archivos
del directorio actual..

ejemplo. te muestra todos los archvios que estan en el directorio C:

SET DEFAULT TO C:\
n = ADIR(P)
FOR I = 1 TO N
?P(i,1)
NEXT


Saludos !

Steven Mera

Hola:

Revisa ADIR()


Saludos,

Ana
www.amby.net

"Programador Terminator's T101-T1001" escribió en
el mensaje news:%

Hola Foro
De Entemano Gracias..
Quisiera recordar, que alguna vez trabaje una funcion pero ahora no me
acuerdo, como hago para saber que archivos tengo en un direcctorio y que

me

los envie a unta tabla..
gracias...

Esta funcion partiendo de una carpeta busca todos los archivos,
recorriendo subdirectorios, espero que te sirva

CLOSE DATABASES
CLOSE index
WAIT WINDOW 'Recuperando Información de la Carpeta ...' nowait
LOCAL lnRecno, lcHijo, lnCantArchivos, lcDir, lcDrive
LOCAL ARRAY laDirs(1)
SET DATE DMY
SET CENTURY ON
SET EXACT ON
LOCAL xxorigen,lcdir,lcdrive
xxorigen ='c:\sistemas\'

lcDir = UPPER(xxorigen)
lcDrive = ADDBS(JUSTDRIVE(lcDir))

IF USED("xaux")
USE IN "xaux"
ENDIF

CREATE CURSOR xaux ( Nombre C(240) ,;
peso I ,;
FechaHora T ,;
Atributos C(5) ,;
ext C(5) ,;
XAUX C(240) ,;
nomarch C(240) ,;
xerror L )

lnCantArchivos = ADIR(laDirs, lcDir, "D")

IF lnCantArchivos >= 1
INSERT INTO xaux ;
( Nombre ,;
peso ,;
FechaHora ,;
Atributos ) ;
VALUES ;
( lcDir ,;
laDirs(1,2) ,;
CTOT(DTOC(laDirs(1,3)) + " " + laDirs(1,4)) ,;
laDirs(1,5) )

SCAN FOR "D" $ Atributos
lcDir = ALLTRIM(xaux.Nombre)
lnCantArchivos = ADIR(laDirs, ADDBS(lcDir) + "*.*", "D")
IF lnCantArchivos >= 1
lnRecno = RECNO()
FOR lnDir = 1 TO ALEN(laDirs, 1)
IF LEFT(laDirs(lnDir,1),1) = "."

ELSE
INSERT INTO XAUX ;
( Nombre, ;
PESO ,;
FechaHora, ;
Atributos) ;
VALUES ;
( (ADDBS(lcDir) + laDirs(lnDir,1)) , ;
laDirs(lnDir,2), ;
CTOT(DTOC(laDirs(lnDir,3)) + " " +
laDirs(lnDir,4)), ;
laDirs(lnDir,5) )

ENDIF
ENDFOR
GOTO (lnRecno)
ENDIF
ENDSCAN
ENDIF
SELECT xaux
GO TOP
BROWSE noedit


CLEAR ALL



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway