Но корень проблемы найден. Не знаю по каким причинам, но мешало своевременному обнаружению или чтению файла его удаление или перемещение на 2. Когда поставил его удаление из 1 всё заработало стабильно.

Пока не знаю как согласовать действия по удалению из 1 после прочтения из 2 не пересылая данные назад, но это уже другой вопрос.

Можно в сторону этой темы обратить внимание - AHKSock.
Как говорит автор, работоспособность проверялась и через LAN, и через интернет.

  Спасибо, попробую хоть что-то там понять.

Сам по себе FileRead работает с такими же задержками как и ifExit.

Тогда всё печальнее. Где-то на локальной сети слабое место, которое тормозит трафик. Перегруженный роутер или какой коммутатор с "поплывшими мозгами". Или тот компьютер, на котором создаётся файл, перегружен.

  Ещё интереснее. Я на втором компе вижу появление нового файла в проводнике практически сразу же. А скрипт его может обнаруживать как сразу же, так и через любой промежуток времени до четырёх секунд.

FileRead, если работает тот код, который приведен  выше, из поста 21 другой темы, срабатывает, насколько я понял, почти мгновенно. Не знаю как происходит эта "инициализация" системы, но это происходит.

  Пока скрипт тестирования не идеален, но похоже что всё именно так.

Я не уверен, что при частых чтениях FileRead не случится такое, что прочитается часть из необходимого текста пока файл ещё пишется.

По идее, пока файл пишется, он недоступен для чтения. Об этом подскажет ErrorLevel.

Тогда всё печальнее. Где-то на локальной сети слабое место, которое тормозит трафик. Перегруженный роутер или какой коммутатор с "поплывшими мозгами". Или тот компьютер, на котором создаётся файл, перегружен.

И ещё. Я не уверен, что при частых чтениях FileRead не случится такое, что прочитается часть из необходимого текста пока файл ещё пишется. Этого категорически хотелось бы избежать. Есть надежда, что проверка наличия с последующим чтением увеличивает временной интервал настолько, что шанс попасть в описанную ситуацию значительно уменьшается. Не знаю насколько ситуация отличается от моих представлений о ней.

я не знаю как можно обновить файл не удаляя его, кроме как дописывая через FileAppend. Не хочется увеличивать объём файла и время его чтения. А разве можно как-то иначе его менять? И будет ли при этом способе обнаруживаться изменения быстрее, чем обнаруживается само наличие файла?

Вообще-то менять только так и можно - удалить старый, затем записать новый с таким же именем. Суть моего предложения - не проверять существование файла. Просто периодически выполняйте FileRead и проверяйте ErrorLevel.

dir =  ; указать директорию для мониторинга без кавычек
 
OnExit, Exit
 
Script =
(
   #NoTrayIcon
   dir = %dir%
   FILE_NOTIFY_CHANGE_FILE_NAME :=  1            ; любые изменения связанные с именами файлов
   INFINITE                     := -1            ; неограниченное время ожидания
    
   x:=DllCall("FindFirstChangeNotification" . (A_IsUnicode ? "W" : "A")
      , "str", dir, "int", 0, "int", FILE_NOTIFY_CHANGE_FILE_NAME, "Cdecl int")
   while DllCall("WaitForSingleObject", "int", x, "int", INFINITE, "Cdecl int") = 0
   {
      MsgBox 4, , Был создан, удалён или переименован какой-то файл``nВы хотите продолжить мониторинг?
      IfMsgBox, No, break
      DllCall("FindNextChangeNotification", "int", x, "Cdecl int")
   }
   x:=DllCall("FindCloseChangeNotification", "int", x)
)
 
FileDelete, %A_Temp%\Viewer.ahk
FileAppend, % Script, %A_Temp%\Viewer.ahk, % A_IsUnicode ? "UTF-8" : ""
Run, "%A_AhkPath%" "%A_Temp%\Viewer.ahk",,, PID
Return
 
Exit:
   FileDelete, %A_Temp%\Viewer.ahk
   Process, Close, %PID%
   ExitApp
 
F11:: ExitApp

.
  Есть у кого-то мысли, как можно наладить с помощью этого метода мониторинг папки или файла?

while DllCall("WaitForSingleObject", "int", x, "int", INFINITE, "Cdecl int") = 0
    {
    Time := A_TickCount - mem
    mem := A_TickCount
    FileAppend,%Time%`n,2.txt
    FileDelete,общая папка\1.txt    
    ToolTip,: %A_TickCount%

    DllCall("FindNextChangeNotification", "int", x, "Cdecl int")
    }

Запись не производится, ToolTip выводится, но всё время с одним и тем же значением - первоначальным.  Как это можно исправить?

  И gosub тоже не работает.