CMD/BAT

Iska · Отправлено: **19:51, 11-04-2017** | #2

Ну, например:

Скрытый текст

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

call :DelFilesInFolder "D:\"
call :DelFilesInFolder "D:\Papka"

endlocal
exit /b 0

:DelFilesInFolder
	setlocal enableextensions enabledelayedexpansion
	
	set sSourceFolder=%~1
	
	pushd "%sSourceFolder%" && (
		for /f "usebackq delims=" %%i in (`2^>nul dir /a:-d /b "*.*"`) do if "%%~xi" neq ".lnk" echo del /f /q "%%~i"
		popd
	) || (
		echo Can't find source folder [%sSourceFolder%].
		exit /b 1
	)
	
	endlocal
	exit /b 0

Цитата djuwa4:

chcp 1251 »

Никаких chcp 1251. Просто сохраняйте пакетный файл в кодировке OEM/866.

djuwa4 · Отправлено: **09:10, 12-04-2017** | #3

Iska! Спасибо вам огромное!!!!

djuwa4 · Отправлено: **10:41, 12-04-2017** | #4

Думаю кому-то понадобится, скину ссылочки в которых описываются команды из батника:
setlocal (enableextensions, enabledelayedexpansion, endlocal) - http://ab57.ru/cmdlist/setlocal.html
call - http://ab57.ru/cmdlist/call.html
exit - http://ab57.ru/cmdlist/exit.html
Функция DelFilesInFolder - http://wm-help.net/lib/b/book/1239221356/168

Остальные буду дописывать в этом комментарии.

megaloman · Отправлено: **15:44, 12-04-2017** | #5

Хоть задача и решена, позволю себе добавить свой вариант

Вот вариант, который позволяет сделать несколько исключений, но можно и одно

Код:

@Echo Off
cls

Set "Exclude="" ".vbs" ".bat""

Call :DelList "%Exclude%" "Z:\*.*"

Call :DelList ".lnk" "Z:\Temp\*.*"

pause
GoTo :Eof

:DelList
	FOR %%i IN (%2) DO Call :DelExclude %1 "%%i" 
GoTo :Eof

:DelExclude
	For %%e in (%~1) Do If /I "%~x2"==%%e GoTo :Eof
	Echo Del %2
GoTo :Eof

Для реальной работы уберите Echo перед Del

Iska · Отправлено: **16:02, 12-04-2017** | #6

Цитата djuwa4:

Функция DelFilesInFolder - http://wm-help.net/lib/b/book/1239221356/168 »

Цитата:

После этого полный путь к удаляемому файлу и значение переменной Status печатаются в окне Блокнота с помощью метода SendKeys

Вот будет радости-то при попытке задействовать этот «метод» с кириллическими путями/именами. Создай текстовый файл, пиши в него, затем тупо отдай на откуп системе его открытие по ShellExecute().