Information générale
Titre:
Help! Weird message while packing tables
Hi,
I have a .prg file to pack all the free tables in a folder. It works fine for some tables, but for some dbf files it gives an error message that some code page is not available etc. I have no clue how packing has anything to do with code pages.
The script is compiled into a .exe file and is winExec'ed from a VC++ 5.x program.
Any clues?
I appreciate ur help.
Thanks
Puri
*====My code for packing all free tables in folder========
parameters sPath
if parameters() < 1
MessageBox("Please provide the directory for packing")
quit
endif
if len(sPath) <= 0
MessageBox("Please provide the directory for packing")
quit
endif
on error do errhandler with Message()
set path to &sPath
* Get list of tables in the folder sPath
local nTables, sName
nTables = adir(aTableInfo, sPath+"\*.dbf", "A")
for i = 1 to nTables
* Needs exclusive access to the table
if upper(right(atableinfo(i, 1), 3)) != "DBF"
loop
endif
sName = left(atableinfo(i, 1), len(atableinfo(i, 1))-4)
use &sName
select &sName
pack
use
endfor
return 0
function errhandler(sErrMsg)
MessageBox("Error: "+sErrMsg)
quit
endfunc
Suivant
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