hi all,

at my pc it works but when i run it as project.exe ihave this problems.

i try to make many operations via this code below, and move from local server to another ,it open getfile('xls') many times at the same directory not convert,
when i try to run anther form from my main menue, i got error message invalid path or file name

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..
SET DEFAULT to [z:\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\]

thanks.