Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Seeking Alternative to COPY FILE Command
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00444304
Message ID:
01185119
Views:
17
This Shell32 routine copies all files between the source and destination directories:
LOCAL oShell, oSrcFolder, oDstFolder

oShell = CREATEOBJECT("Shell.Application")
oSrcFolder = oShell.NameSpace("c:\temp1")
oDstFolder = oShell.NameSpace("c:\temp")

IF VARTYPE(oDstFolder)="O" AND VARTYPE(oSrcFolder.Items)="O"
        oDstFolder.CopyHere(oSrcFolder.Items)
ENDIF
The table may stay open in the source directory, it is still being copied. Though need to test it in all modes; for example, how does it work when the source table has uncofirmed changes.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform