Puri,

I use a version of this code to pack my vcx, scx, frx, pjx files, as VFPs "Pack Project" doesn't clean them up properly.

private all like j*
set defa to data
jnFiles = ADIR(jaFiles, '*.dbf')

FOR jnX = 1 TO jnFiles
jcTblName = alltrim(jaFiles[jnX,1])
use &jcTblName. in 0 alias PackFile exclusive
Select PackFile
pack
use in PackFile
NEXT
set defa to ..


>Hi,
> Iam trying to write a script to pack all the free tables(i.e. the tables that are not in a DBC file) in a folder. If I have path of the folder, Is there any way in VFP to enumerate all the files in that folder? Can they be enumerated using a wild card? (like all the *.dbf files in the folder etc)
>
>I appreciate ur help.
>
>Thanks
>Puri