PB使用SHFileOperation函数复制文件夹（文件）API

在pb中建立工程，按照如下步骤实施：

1：申明外部函数
Function long SHFileOperation(ref SHFILEOPSTRUCT lpFileOp) Library "shell32.dll" Alias FOR "SHFileOperationA;ansi" 
2：定义结构体
global type shfileopstruct from structure
long hwnd
long wfunc
blob pfrom
blob pto
long fflags
long fanyoperationsaborted
long hnamemappings
string lpszprogresstitle
end type
3：定义复制函数
//文件（文件夹）复制函数
//返回：0成功 1失败
//参数：gs_frompath、gs_topath
SHFILEOPSTRUCT udtPath
udtPath.fflags = 592 //默认自动覆盖
udtPath.hwnd  =  handle(this) 
udtPath.wFunc  =  2
udtPath.pFrom  =  blob(gs_frompath,EncodingANSI!)   +   blob(char(0),EncodingANSI!)   +   blob(char(0),EncodingANSI!)
udtPath.pTo  =   blob(gs_topath,EncodingANSI!)   +   blob(char(0),EncodingANSI!)   +   blob(char(0),EncodingANSI!)

IF SHFileOperation(udtPath) = 0 Then
Return 0
Else
Return 1