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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement