@echo off
TITLE EXCLUIDOR DE PASTAS DIFICEIS
Color 0a
if "%1" neq "Administrador" call :elevate



Call :Abre_dir "Selecione a pasta para deletar" "SOURCE"

if "%SOURCE%"=="Cancelado" exit
if not defined SOURCE exit
SET SOURCE=%SOURCE:"=%


for /f "delims=" %%b in ('dir "%SOURCE%\" /ad /b') do (
CALL:EXCLUI "%%~b"
)

SET /P PASTA=PRESSIONE ENTER PARA SAIR - VISITE O BATCH-SATTI -
EXIT

:EXCLUI
ECHO."%SOURCE%\%~1"
ECHO.
SET /P PASTA=CONCEDER PERMISSOES PARA %UserName% - "%~1" ( S/N ) :
IF /I "%PASTA%"=="N" GOTO:EOF
rem ECHO S | takeown /f "%SOURCE%\%~1" /r /a
rem CACLS "%SOURCE%\%~1" /T /E /G %UserName%:F
attrib -r -s -h "%SOURCE%\%~1\*.*" /s
attrib -r -s -h "%SOURCE%\%~1" /s

Del /F /S /Q  "%SOURCE%\%~1\*.*"
rmDir /S /Q  "%SOURCE%\%~1"

if exist "%SOURCE%\%~1" (
md "%temp%\pasta_vazia\%~1"
Robocopy "%temp%\pasta_vazia\%~1" "%SOURCE%\%~1" /MIR /R:1 /W:1
rmDir /S /Q  "%SOURCE%\%~1"

)


CLS
GOTO:EOF

:Elevate
  Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
  cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
  del "%~dp0Elevating.vbs" >nul
Exit



:Abre_dir
set Result=
set input=%1
set vbs=%temp%\_.vbs
set tmp=%temp%\_.cmd
findstr "'%skip%VBS" "%~f0" > "%vbs%"
cscript //nologo "%vbs%" > "%tmp%"
for /f "delims=" %%a in (%tmp%) do %%a
set "%~2=%Result:"=%"

DEL %VBS%
DEL %TMP%
endlocal & goto :EOF

set WshShell=WScript.CreateObject("WScript.Shell") 'VBS
set shell=WScript.CreateObject("Shell.Application") 'VBS
sInput=WshShell.ExpandEnvironmentStrings("%input%") 'VBS
set folder=shell.BrowseForFolder(0,replace(sInput,chr(34),""),0) 'VBS
if typename(folder)="Nothing" Then  'VBS
wscript.echo "set Result=Cancelado" 'VBS
WScript.Quit(1) 'VBS
end if 'VBS
set folderItems=folder.Items() 'VBS
set folderItem=folderItems.Item() 'VBS
pathname=folderItem.Path 'VBS
wscript.echo "set Result="& chr(34) & pathname & chr(34) 'VBS
avatar
Boss-Head

Idade : 33
Data de inscrição : 31/10/2008

Ver perfil do usuário Enviar uma mensagem privada Enviar um email