>>>>SET CENTURY on >>>>SET DELETED on >>>>SET EXCLUSIVE off >>>>SET safety off >>>> >>>>SELECT 2 >>>>USE main2 >>>>GO TOP IN main2 >>>>IF NOT EOF("main2") >>>> >>>> gcDelimName = ALIAS( ) + '.xls' >>>> gcPath = [w:\Quality Test 01\mtest\] >>>> gcDelimName = gcPath + DTOS(file_date) + ".XLS" >>>> lcFile=gcDelimName >>>> >>>> if adir(dummy,lcFile)>0 >>>> MESSAGEBOX(" file exists") >>>> else >>>> COPY TO (gcDelimName) XL5 >>>> endif >>>> >>>>******* >>>> >>>>SET DEFAULT TO [z:\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\] >>>>DROP table main1 >>>>insert INTO mstr ; >>>> SELECT * FROM main2 WHERE file_date NOT IN (SELECT file_date FROM mstr) >>>>DROP table main2 >>>>endif >>>> >>>>****** >>>> >>>>SET DEFAULT TO [w:\Quality Test 01\Source Data] >>>>GETFILE('xls') >>>>thisform.text9.Value=GETFILE('xls') >>>> >>>> >>>>CREATE TABLE [\\Cctfil01\HRD-SpData\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\main1.dbf]; >>>>(msisdn n(15),num n(8),date d(8) ,flag n(2) ) >>>>APPEND FROM (thisform.text9.Value) TYPE xl5 >>>>Replace Date with thisform.text1.value ; >>>> flag with 0 ; >>>> num with RecNo() ALL >>>> >>>>********************************************* >>>> >>>> >>>> >>>>CREATE TABLE [\\Cctfil01\HRD-SpData\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\main2.dbf]; >>>>(num n(8),survey_num n(2),msisdn n(15),file_date d(8) ,intervdate d(8),status n(2),othersst c(100),con_type c(20) ) >>>>************************************************* >>>>*****SET DEFAULT to [z:\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\] >>>>SET DEFAULT TO [w:\Quality Test 01\Source Data] >>>>COPY FILE thisform.text9.Value.xls TO [w:\Quality Test 01\MTEST\(thisform.text9.Value).xls] >>>>ERASE (thisform.text9.Value).xls >>>>>>>>another form at..