小吳 VBQA 程式設計討論

我想做檔案複製的動作...
but有執行錯誤453
dll進入點SHFileoperationA無法在shell32.dll中找到
可否高人可以指點一下.........感激不盡^_^*
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
　　fAborted As Boolean
　　hNameMaps As Long
　　sProgress As String
End Type

Private Sub Command1_Click()
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
　　　　SHFileOp.pFrom = App.Path + ("\thpa.mdb")
　　　　SHFileOp.pTo = App.Path + ("\bakup\0706.mdb")
　　　　SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
　　　　SHFileoperation SHFileOp

End Sub