Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Error While USE Command
Message
From
23/01/2013 12:32:14
 
 
To
23/01/2013 08:30:15
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01563718
Message ID:
01563837
Views:
50
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform