Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Local servers
Message
From
08/05/2006 08:26:19
 
 
To
08/05/2006 07:39:55
Neil Mc Donald
Cencom Systems P/L
The Sun, Australia
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01119977
Message ID:
01120002
Views:
20
hi,
thank you for reply, sorry, i don't understand ...
the source and target machines should be?




>Hi,
>To make things easier for us, can you specify what you think the source and target machines should be.
>
>>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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform