Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Цитата turbolover:
Хочу спросить »
- хотите-спрашивайте, в чём затруднение? Если на файле и в корне диска нет особых параметров доступа, то
Код: Выделить весь код
@Echo Off
Set "MyFile=Z:\Kuku\FXSAPIDebugLogFile.txt"

Call :Clear "%MyFile%"
GoTo :Eof

:Clear
If Exist %1 (
	Move %1 "%~d1\" >nul
	If Exist "%~d1\%~nx1" CD /D "%~dp1" && RD /s /q "%~dp1" 2>nul 
	Move "%~d1\%~nx1" %1 >nul  
) Else (
        cls
	Echo File %1 not Exist
	pause
)
Вы должны указать полный путь к Вашему файлу, скрипт переместит его в корень диска, очистит папку, в которой он находился (будут удалены все файлы и подпапки в папке, где находился Ваш файл, невзирая на атрибуты "только для чтения", "системный", "скрытый"), затем вернёт Ваш драгоценный файл назад.
Вариант будет работать медленнее, но указанный файл временно перемещаться не будет
Код: Выделить весь код
@Echo Off
Set "MyFile=Z:\Kuku\FXSAPIDebugLogFile.txt"

Call :Clear "%MyFile%"
GoTo :Eof

:Clear
	pushd "%~dp1"
	attrib -r -s -h /S /D
	attrib +r %1
	del /Q "%~dp1*.*" >nul 2>nul
	attrib -r  %1
	FOR /F "usebackq delims=" %%i IN (`Dir /B /A:D %~dp1 2^>nul`) DO Rd /s /q "%~dp1%%i"
	popd
Здесь Ваш драгоценный файл не перемещается, ему устанавливается атрибут "только для чтения", затем все остальные файлы и подпапки удаляются, а у Вашего файла снимается атрибут "только для чтения"
Еще медленнее, но атрибуты драгоценного файла никак не меняются
Код: Выделить весь код
@Echo Off
Set "MyFile=Z:\Kuku\FXSAPIDebugLogFile.txt"

Call :Clear "%MyFile%"
GoTo :Eof

:Clear
	FOR /F "usebackq delims=" %%i IN (`Dir /B /A:-D %~dp1 2^>nul`) DO (
		If /I Not %1=="%~dp1%%i" attrib -r -s -h "%~dp1%%i" &DEL "%~dp1%%i"
	)
	FOR /F "usebackq delims=" %%i IN (`Dir /B /A:D %~dp1 2^>nul`) DO attrib -r -s -h "%~dp1%%i" &Rd /s /q "%~dp1%%i"

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 26-09-2016 в 22:37.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:39, 26-09-2016 | #2