使用SHFileOperation的问题，急急

Question

我使用SHFileOperation提示：实时错误453：
找不到dll的入口点，SHFileOperationA in shell32.dll是何原因代码如下
Option Explicit
Private Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private 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 Const FO_DELETE = &H3 
Private Const FOF_ALLOWUNDO = &H40 
Private Sub Command1_Click()    Dim SHFileOp As SHFILEOPSTRUCT
    CD1.Filter = "All Files (*.*)|*.*"
    CD1.ShowOpen
    With SHFileOp
        .wFunc = FO_DELETE
        .pFrom = CD1.FileName
        .fFlags = FOF_ALLOWUNDO 
    End With
    SHFileOperation SHFileOp
    End Sub

Answer 1

这是VB的BUG，VB5和VB6都有这个问题。 
    将声明中SHFileOperationA前面的空格删除就可以了。 
              ___
             (  ">
              )(
             // )  [email protected]
          --//""--－－－－－－－－－－
          -/------