Непонятно <WaitOnReturn> - True / vbTrue метода Run вы убрали его для тех строк которые принадлежат copy_move.vbs - Нужно же понимать что произойдет если по какой либо причине эти строки кода не отработают.

Операции копирования запускаются уже не отдельным вызовом внешнего скрипта, а внутри основного, т.е. пока они не отработают - далее скрипт не продолжится.
Если не отработают операции копирования из-за ошибок - то получите ошибку и скрипт прервется.

А в вызове через Run отправки сообщения особого смысла в ожидании нет, т.к. после этого вызова Вашему скрипту остается просто завершиттся -  ведь никаих более операций ниже той строки нет.

LogFile = ".\cat1" 
Set objFSO = CreateObject("Scripting.FileSystemObject")   
Set Folder = objFSO.GetFolder(LogFile)
If Folder.files.count > 0 Then
    ''''WScript.CreateObject("Wscript.Shell").Run "copy_move.vbs", 1, vbTrue
    Const OverwriteExisting = True  
    objFSO.CopyFile ".\cat1\*.*" , ".\arch\" , OverwriteExisting                                 
    objFSO.MoveFile ".\cat1\*.*" , ".\cat2\" 
    '--- net send
    WScript.CreateObject("Wscript.Shell").Run "net.exe send 192.168.10.108 Cat1_Msg_RECEIVED!", 1
End If
WScript.Quit 

Всё можно объединить в один скрипт.

Комрад,  напиши название метода раз сказал))

Dr.Hofmann, для проверки наличия файлов достаточно Folder.Files.Count > 0 безо всяких подписок.

пасиб - получилось

Вот как сделал:

run_copy.vbs

LogFile = ".\cat1" 
Set objFSO = CreateObject("Scripting.FileSystemObject")   
Set Folder = objFSO.GetFolder(LogFile)
If Folder.files.count > 0 Then
WScript.CreateObject("Wscript.Shell").Run "copy_move.vbs", 1, vbTrue
WScript.CreateObject("Wscript.Shell").Run "netsend.bat", 1, vbTrue
Else
WScript.Quit 
End If

copy_move.vbs

Const OverwriteExisting = True  
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objFSO.CopyFile ".\cat1\*.*" , ".\arch\" , OverwriteExisting                                 
objFSO.MoveFile ".\cat1\*.*" , ".\cat2\" 
WScript.Quit

netsend.bat

cd %systemroot%\system32
chcp 1251
net send 192.168.10.108 Получено сообщение

Если известно имя конкретного файла, то там же на "Главной", где про объекты WScript, есть и про объект "FileSystemObject" и там есть про метод "FileExists".

Я же написал каких-либо файлов -  имя его неизвестно.

полезными оказались две строчки

использовать иной инструмент: WMI-подписку на соответствующее системное событие.
Ищите на форуме темы по ключам CIM_DirectoryContainsFile и __InstanceCreationEvent.

Возникает вопрос а зачем его запускать если в каталоге нет файлов?

С помощъю чего можно реализовать проверку наличия каких либо файлов в каталоге? - на первом этапе а потом уже производить копирование или перемещение.

Если известно имя конкретного файла, то там же на "Главной", где про объекты WScript, есть и про объект "FileSystemObject" и там есть про метод "FileExists".

FSO-методы  .Copy и .Move по моему не поддерживают символы подстановки (*, ?), т.е. это только для явно указанного файла.

Поддерживают.

В отличие от «.FileExists()». Посему здесь:

— ошибка.

VBS проверка существования файла по маске

Объект WshShell - Метод 3.4. Run

Там есть пример запуска (например, Вашего батника) с ожиданием завершения работы и выводом возвращаемого кода.

а также - 4.2.1. ExitCode

Устанавливать на выходе из скрипта свой код возврата - Объект WScript - 3.2. Quit

Возникает вопрос а зачем его запускать если в каталоге нет файлов?

С помощъю чего можно реализовать проверку наличия каких либо файлов в каталоге? - на первом этапе а потом уже производить копирование или перемещение.

Для работы с маской можете вызывать внешний cmd.exe с командой копирования (или вызов батник, принимающий параметры - что и куда копировать):

WScript.CreateObject("WScript.Shell").Run "%COMSPEC% /c Copy <source> <dest>"

LogFile = ".\cat1\*.*"
Const OverwriteExisting = True   
Set objFSO = CreateObject("Scripting.FileSystemObject")     
     
If objFSO.FileExists(LogFile) Then 
objFSO.CopyFile ".\cat1\*.*" , ".\arch\" , OverwriteExisting                                 
objFSO.MoveFile ".\cat1\*.*" , ".\cat2\" 
Else                           
WScript.Quit 1
End If

Выполняется но ничего не делает, вопрос к знатокам где ошибка?