CopyFileW返回0，但GetLastError也返回0

Question

从VBA调用CopyFileW，如下所示，使用不存在的目标文件夹给出由CopyFileW返回的值0，但GetLastError也返回0，表示操作成功。如何从失败的CopyW操作中获取错误代码？

Dim Ret As Long 

sFrom = "\\?\UNC" & Mid(sFrom, 2) 
Ret = CopyFileW(StrPtr(sFrom), StrPtr(sTo), False) 

If Ret = 0 Then 
     Call LogErrorFilFol(GetFileFromPath(sFrom), GetFolderFromPath(sFrom), _ 
     "WCopyFile error - " & ErrorMsg(GetLastError), FileID) 
End If 

Answer 1

不要致电GetLastError从VBA，请使用Err.LastDllError。