creating, and copying directory plus contents in VFP 7.0?

[bettyfurr]

Are there any code for copying directory plus contents in VFP 7.0?

I can create a program that append into a dbf and copy files with wild cards but do not how to create and copy directories. Is this possible?

 

[RedLion]

There is a very good COM-object available from Microsoft. The name is the Microsoft Scripting Runtime and can be found in the directory c:\windows\system\scrrun.dll look it over with your VFP7 object browser. Works very well.

Charl

 

[rgbean]

Explicit examples of the WSH technique follows:

*:* Copy Directory/Folder

ofs=createobject("scripting.filesystemobject&quot
ofs.copyfolder('c:\foldername','c:\newfoldername')


*:* Copy Files

* lcfiles is a file name with or without wildcards
* lcdir is the target directory
oShell = CREATEOBJECT('Shell.Application')
oFolder = oShell.Application.Namespace(lcdir)
oFolder.CopyHere(lcfiles)

Additionally, you can specify parameters that control how the dialog operates for example pass FOF_NOCONFIRMATION (0x10) so that a confirmation dialog doesn't appear if a file with the same name exists in the target directory. The constants are mentioned in SHFILEOPSTRUCT topic and the values can be found in Shlobj.h in the VC++ Include sub-directory.

Rick