调用SHFileOperation API函数时，报错：实时错误‘453’找不到DLL入口点
编号：QA003361
建立日期: 2000年9月26日 最后修改日期：2000年9月26日
所属类别：
tlf:
操作系统: win98 4.10
编程工具: VB6.0 中文企业版
问题: 各位大虾：最近帮朋友编一个小程序，在使用SHFileOperation API函数复制整个目录时，程序运行却报错：
实时错误‘453’
找不到DLL入口点 SHFileOperationA in shell32.dll
函数声明是通过API阅览器添加的，应该没有问题。不知问题在哪里？
以下是源程序：
Public Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS
End Type
'以上函数声明及自定义类型在标准模块中
Private Sub Form_Load()
Dim shfileop As SHFILEOPSTRUCT
shfileop.wFunc = FO_COPY
shfileop.pFrom = "c:\1075"
shfileop.pTo = "c:\1234"
shfileop.fFlags = FOF_ALLOWUNDO
SHFileOperation shfileop
End Sub
'以上为程序
盼答复 多谢!
水平: 刚入门
回答:
这是VB的BUG，VB5和VB6都有这个问题。
将声明中SHFileOperationA前面的空格删除就可以了。
相关问题：
QA001560 "错误信息453：can't find dll entry point"
此问题由李海回答。
| |
|
|
| |
|
|
