try to add SET CPDIALOG OFF

>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