*　================================================
*　在 VFP9.0 中拷贝文件夹
*　------------------------------------------------
Declare Integer WinExec in kernel32 string, integer

= WinExec([Xcopy 源文件夹 目标文件夹 /E], 0)
*　================================================
*　实例：将当前目录中的 <YWSJ> 文件夹整体拷贝到
*　　　　< E:\YWSJ > 文件夹中。
*　------------------------------------------------

*　方法一：
Declare Integer WinExec in kernel32 string, integer

= WinExec([Xcopy YWSJ E:\YWSJ /E], 0)

*　方法二：

RUN/N1 XCOPY YWSJ E:\YWSJ /V /E /Y

*　注意：< E:\YWSJ > 文件夹要事先建立好。
*　『方法一』可能在进程中留下痕迹，

*　『方法二』比较好。

*　================================================