Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Error While USE Command
Message
De
23/01/2013 12:32:14
 
 
À
23/01/2013 08:30:15
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01563718
Message ID:
01563837
Vues:
49
Thanks Madam, A little more confusion. As You told that I have to wait until ABC.DBF is copied. But there is not just one file ABC.DBF there are several other. So need to Wait for until my entire directory is being copied.

Is there any way that I could halt my next execution until the entire folder is being copied.

Harsh




>>Using the Following code, I am copying One Folder from Source to Destination Folder.
>>
>>LOCAL oShell, oSrcFolder, oDstFolder
>>CreateDirectory('&Destinationfolder',0)
>>oShell = CREATEOBJECT("Shell.Application")
>>oSrcFolder = oShell.NameSpace('&sDirectory')
>>oDstFolder = oShell.NameSpace('&Destinationfolder')
>>
>>IF VARTYPE(oDstFolder)="O" AND VARTYPE(oSrcFolder.Items)="O"
>> oDstFolder.CopyHere(oSrcFolder.Items)
>>ENDIF
>>****************
>>
>>*Afterwards, I am Using
>>
>>Set Default to ('&Destinationfolder')
>>Use ABC.DBF
>>
>>MY problem is while the copying process is Not yet completed the my next commands i,e Set Default to ('&Destinationfolder')
>> & Use ABC.DBF are executed and an error ABC.DBF does not exist is generated.
>
>First, you don't need the quotes and the macro in SET DEFAULT:
>
>
>Set Default to (Destinationfolder)
>
>
>Second, sounds like you need a loop to wait until the table exists:
>
>
>DO WHILE NOT FILE('ABC.DBF')
>   DOEVENTS 
>ENDDO
>
>
>Tamar
Harsh
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform