murlavik
Код: Action:
1000 PAUSE
WIN-INPUT-TEXT: "Что ищем?" "Введите имя файла для поиска" "" 0 0=
IF
\ на стеке - имя файла.
\ если надо вводить только имя, а конкретное расширение добавлять автоматически,
\ то раскомментируйте следующую строку:
\ S" .doc" S+ \ добавляем к имени расширение doc
S" C:\" \ задаём начальный путь поиска
2SWAP S+ \ добавляем имя файла
RECURSIVE FILESONLY
FOR-FILES
QUERY: "Переместить файл %FOUND-FULLPATH%"
IF
FILE-MOVE: "%FOUND-FULLPATH%" "D:\my_dir\"
THEN
;FOR-FILES
THEN
Код: Action:
1000 PAUSE
WIN-INPUT-TEXT: "Что ищем?" "Введите имя файла для поиска" "" 0 0=
IF
\ на стеке - имя файла.
\ если надо вводить только имя, а конкретное расширение добавлять автоматически,
\ то раскомментируйте следующую строку:
\ S" .doc" S+ \ добавляем к имени расширение doc
S" C:\" \ задаём начальный путь поиска
2SWAP S+ \ добавляем имя файла
RECURSIVE FILESONLY
FOR-FILES
QUERY: "Переместить файл %FOUND-FULLPATH%"
IF
FILE-MOVE: "%FOUND-FULLPATH%" "D:\my_dir\"
THEN
;FOR-FILES
THEN