Цитата megaloman:
Сохраните код в 1251 ("Windows") кодировке »
|
Разбираюсь с Вашим скриптом, пока безрезультатно...
Скрипт выполняется, без ошибок, но в то же время как будто ничего не делает.
Скрытый текст
C:\test>Chcp 1251 1>nul
C:\test>Set "FindData=ДатаКонца"
C:\test>Set "Pref=#r"
C:\test>Call :ReMove "C:\test\1\#r??????.txt" "\\192.168.1.88\share\1\"
C:\test>FOR %f IN ("C:\test\1\#r??????.txt") DO Call :DFind "%f" "ДатаКонца" "\\192.168.1.88\share\1\" "#r"
C:\test>GoTo :Eof
C:\test>Call :ReMove "C:\test\2\#r??????.txt" "\\192.168.1.88\share\2\"
C:\test>FOR %f IN ("C:\test\2\#r??????.txt") DO Call :DFind "%f" "ДатаКонца" "\\192.168.1.88\share\2\" "#r"
C:\test>GoTo :Eof
C:\test>Call :ReMove "C:\test\3\#r??????.txt" "\\192.168.1.88\share\3\"
C:\test>FOR %f IN ("C:\test\3\#r??????.txt") DO Call :DFind "%f" "ДатаКонца" "\\192.168.1.88\share\3\" "#r"
C:\test>GoTo :Eof
C:\test>Call :ReMove "C:\test\#r??????.txt" "\\192.168.1.88\share\4"
C:\test>FOR %f IN ("C:\test\#r??????.txt") DO Call :DFind "%f" "ДатаКонца" "\\192.168.1.88\share\4" "#r"
C:\test>GoTo :Eof
C:\test>GoTo :Eof