找不到 dll入口点 SHFileOperationA in shell32.dll 请问这个问题怎么解决

Question

哦 忘了附上 我函数的定义了
Option Explicit
Const FO_MOVE = &H1
Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_RENAME = &H4Const FOF_NOCONFIRMATION = &H10
Const FOF_NOCONFIRMMKDIR = &H200
Const FOF_ALLOWUNDO = &H40Private Type SHFILEOPSTRUCT
     hwnd As Long
     wFunc As Long
     pFrom As String
     pTo As String
     fFlags As Integer
     fAborted As Boolean
     hNameMaps As Long
     sProgress As String
End TypePrivate Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Dim SHFileOp As SHFILEOPSTRUCTPrivate Sub Command3_Click()   '复制文件
Dim fdir As String
fdir = App.Path
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = sFile + Chr(0)
SHFileOp.pTo = fdir
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
SHFileOperation SHFileOp
End Sub

Answer 1

会和os 有关吗？ 我用的是Win2000