Clarion - Ayuda ... por favor ...

SALUDOS ... CLARIONEROS ... MI SITUACION ES ESTA ... NECESITO CAPTURAR EL NOMBRE Y EXTENSION DE UNOS ARCHIVOS UBICADOS EN UNA CARPETA X DEL DISCO DURO Y COMPARARLOS CON LOS NOMBRES REGISTRADOS EN UNA TABLA TPS ... AGRADECIENDO SU AYUDA

AJCH

Busca en el help:

DIRECTORY (get file directory)

Saludos

Ahi lo tienes ...

Global - Embeds - Inside the Global Map - 4000
Include('CLIB.CLW')

Procedure
Data
FileToShellVariable CSTRING(254)
LP LONG
Recs LONG
FileName CSTRING(254)

Embeds
Local Data - Generated Declarations - 1300
AllFiles QUEUE(File:queue),PRE(FIL)
END

Routine
Directory(AllFiles,AquiLaRuta & '\*.*',ff_:NORMAL) !Puedes especificar un tipo ejemp. '*.JPG'

Sort(AllFiles,Fil:Name)
Recs = Records(AllFiles)
Loop LP = 1 To Recs
Get(AllFiles,LP)
?Progress = LP * 100 / Recs ;Display !Barra de progreso

NombreDeArchivo = Fil:Name
!Haces tu proceso
.
Free(AllFiles) ;Clear(AllFiles)