Pues Fastpho he estado probando, pero no consigo el resultado
he incluido este código, según he visto por Internet como usar la Api.
Código COBOL:
MOVE SPACES TO RUTA
STRING 'U:\UNICA' X'00' DELIMITED BY SIZE INTO RUTA
CALL "FindFirstChangeNotificationA" WITH STDCALL USING BY CONTENT RUTA
BY VALUE POW-FALSE
BY VALUE 0
RETURNING RETORNO