res2001
Дык мой вариант удаляет только каталоги, файлы не трогает.
Дык мой вариант удаляет только каталоги, файлы не трогает.
И еще, можно как-то заэкранировать двойные кавычки в команде
Скажите, можно ли в bat реализовать алгоритм, который на VB выглядел бы примерно так:
Вот так заработало:
если поиск закончился не удачно, то выводишь УРЛ? Тогда так
ECHO OFF
COLOR 9F
CLS
echo OPEN mirror.yandex.ru>MYFTP.txt
echo ANONYMOUS>>MYFTP.txt
echo 123>>MYFTP.txt
echo BELL>>MYFTP.txt
echo STATUS>>MYFTP.txt
echo DIR>>MYFTP.txt
echo CD mozilla>>MYFTP.txt
echo DIR>>MYFTP.txt
echo CD firefox>>MYFTP.txt
echo DIR>>MYFTP.txt
echo CD releases>>MYFTP.txt
echo DIR>>MYFTP.txt
echo CD 3.6.13>>MYFTP.txt
echo DIR>>MYFTP.txt
echo CD win32>>MYFTP.txt
echo DIR>>MYFTP.txt
echo CD ru>>MYFTP.txt
echo DIR>>MYFTP.txt
echo binary>>MYFTP.txt
echo get "Firefox Setup 3.6.13.exe">>MYFTP.txt
echo quit>>MYFTP.txt
ftp -s:myftp.txt
pause
@ECHO OFF
COLOR 9F
CLS
echo OPEN ftp.myftp.ru>MYFTP.txt
echo login>>MYFTP.txt
echo password>>MYFTP.txt
echo BELL>>MYFTP.txt
echo STATUS>>MYFTP.txt
echo BINARY>>MYFTP.txt
echo PUT "myftp.txt">>MYFTP.txt
echo QUIT>>MYFTP.txt
ftp -s:myftp.txt
pause
нет должны быть разные имена. чтоб четко не войти вдвоем
количество обрабатываемых папок больше 9
Есть разветвленная структура папок
Цитата:
Есть разветвленная структура папок
Папки надо обходить рекурсивно? Какая все же структура папок? Они лежат где-то в одной папке или разбросаны в разных местах по всему диску?
Архивировать файлы во всех вложенных подпапках или только в текущей папке? Архив создавать с каким именем?
если файлана сервере не будет он скачается с размером ноль
@echo off
set "pdir=D:\test\1\"
setlocal enabledelayedexpansion
call:recurs "%pdir%" *.log
goto:eof
:recurs
set "fname=%~1"
call:getfname %fname:~0,-1%
for %%a in ("%~1%~2") do (
>nul 7z u "%~1%fname%.7z" "%~1%~2"
echo del /f/q "%~1%~2"
goto:next
)
:next
for /d %%a in (%~1*) do call:recurs "%%~dpnxa\" "%~2"
exit /b
:getfname
set "fname=%~nx1"
exit /b
Не отладил на длинных именах.
Поправил код, поставил кое-где недостающие кавычки.
Страницы: 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
Предыдущая тема: зависает установка Windows XP: 39 минут