在Vista下 VB6.0 用不了 FileCopy 命令！ 帮忙！解决方法

在Vista下 VB6.0 用不了 FileCopy 命令！！！！！ 帮忙！！！
在Vista下   VB6.0   用不了   FileCopy   命令！！！！！   帮忙！！！
急啊！


请高手帮助，或有其它方法？

我不想用象DOS的   shell   BAT文件   的方法啊。。。因为反回不了数据。。

感激大家！！

[解决办法]
用Windows API CopyFile
[解决办法]
Private Function CopyFile(ByVal Source As String, ByVal Destination As String) As Long
Dim tFile As SHFILEOPSTRUCT

With tFile
.wFunc = FO_COPY
.pFrom = Source
.pTo = Destination
.fFlags = FOF_ALLOWUNDO And FOF_SIMPLEPROGRESS
End With

CopyFile = SHFileOperation(tFile)

End Function
[解决办法]
……普通用户对安装目录没有写入权限的
你应该写入到用户的我的文档目录或者应用程序数据目录
[解决办法]
蒋大哥一语中的