VB爱好者乐园(VBGood)网友系列贴用API一次删除、移动、复制、改名含有文件及子目录的文件夹

 Private Sub Command1_Click()
    If Dir("D:\222\", vbDirectory) = vbNullString Then
        MsgBox "D:\222  不存在", vbOKOnly Or vbInformation
    Else
        Sleep 5
        '一次复制含有文件的目录或文件夹
        PathOperate "D:\111\*.*", "D:\222\", FO_COPY
        MsgBox "复制成功", vbInformation Or vbOKOnly
    End If
End Sub