Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Local servers
Message
De
08/05/2006 07:39:55
Neil Mc Donald
Cencom Systems P/L
The Sun, Australie
 
 
À
08/05/2006 04:58:22
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01119977
Message ID:
01119997
Vues:
18
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.
Regards N Mc Donald
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform