Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Copying folder and subfolders onto a pen drive
Message
 
 
To
18/02/2009 05:22:21
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 7
OS:
Windows XP
Network:
Windows 2003 Server
Miscellaneous
Thread ID:
01382585
Message ID:
01382607
Views:
55
>
>Can somebody help me with code to copy/move folder and subfolders from a local drive onto a pen drive. I am using Fox 7.

A simpler one
#DEFINE FOF_NOCONFIRMATION         0x0010  && Don't prompt the user.
#DEFINE FOF_NOCONFIRMMKDIR         0x0200  && don't confirm making any needed dirs
#DEFINE FOF_NOERRORUI              0x0400  && don't put up error UI

lcSourceFolder = "h:\tmp\"
lcDestinationFolder = "h:\aaa\TmpCopy"

lnFlag = FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR + FOF_NOERRORUI

loShell		= CreateObject("Shell.Application")
loFolder	= loShell.NameSpace(lcDestinationFolder)
loFolder.CopyHere(lcSourceFolder, lnFlag )
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform