hi all,

i have a code to convert from excel to vfp.dbf ,after many operations,i return back from vfp.dbf to excel sheet again, at end of the code i get error message
(There is not enough memory to complete this operation )
but i have free space at my pc,and the server i useto .
any idea,help.

this the code

activate screen
SET TALK OFF
SET ECHO off
GETDIR()

thisform.text1.Value=GETFILE()
SET DEFAULT TO e:\samerqda
LOCAL lcTableName
lcTableName = thisform.text2.value  
CREATE TABLE &lcTableName (char1 C(10), char2 C(70),char3 C(10), char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10),char9 c(10), char10 c(40),char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
APPEND FROM (thisform.text1.value)TYPE XLS
*REPORT FORM nes preview
***********************
USE (thisform.text2.value) exclusive ALIAS SomeAlias
index on char9 tag char9
select sys(2015) as SortOrder,* from SomeAlias ;
 into cursor crsTemp nofilter

select SomeAlias && now it should work
zap
select crsTemp
SET TALK OFF
SET ECHO off
my_char3 = thisform.combo1.value
scan
 if !seek(char9 ,'SomeAlias','char9')

scatter memvar memo
 insert into (thisform.text2.value) from memvar
 endif
endscan

CREATE TABLE newamar66 (char1 C(10), char2 C(70),char3 C(10), ;
char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10), ;
char9 c(10), char10 c(40),char11 C(10), char12 C(60), ;
char13 C(50), char14 C(40),char15 C(10), char16 C(10), ;
char17 C(10), char18 C(70),char19 C(10), char20 C(10), ;
char21 C(10), char22 C(40),char23 C(10), char24 C(10), ;
char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
CLOSE all
select sys(2015) as SortOrder,* from (ThisForm.Text2.Value) ;


INDEX ON RAND() TAG idx_rand
SET ORDER TO idx_rand
LOCATE
COPY TO newamar66 NEXT 450 FIELDS char1,char2  && etc.


m.a=thisform.text2.Value
CLOSE all
USE (m.a)
gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  && Esc pressed
   CANCEL
ENDIF
*COPY TO (gcDelimFile) xls  && Create delimited file
COPY TO (gcDelimFile) xls for recno()>2 && or 1
MODIFY FILE (gcDelimFile) NOEDIT && i get the error at this statment
(There is not enough memory to complete this operation )

thanks.