Вызов CopyFileW из VBA, как показано ниже, с несуществующей целевой папкой дает значение 0, возвращаемое CopyFileW, но 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