[amel27]

Anatoliy2004, лучше на уровне шар, но можно и файлами,
если имя файла не содержит пробелов и путь не слишком длинный, можно и через "Net File":

Код:

Set DIR=C:\SHARE\DIR1\
For /F "Tokens=1*" %%i In ('Net File^|Find /I "%DIR%"') Do Net File %%i /Close

то же самое через OpenFiles:

Код:

Set DIR=C:\SHARE\DIR1\
For /F "Delims=," %%i In ('2^>Nul OpenFiles /Query /FO CSV^|Find /I "%DIR%"') Do (
OpenFiles /Disconnect /ID %%i)

Может есть решение с помощью сторонней программы???? »

не вижу смысла