Código fonte: restaurador de pastas

Provavelmente você conheçam um virus que infecta o pendrive, ele altera atributos das pastas impedindo que você as veja e deixa uns atalhos no lugar, impedindo o acesso às pastas, então... Esse é o código fonte de um pequeno programinha que fiz que resolve a parada... saiba mais e baixe-o na aba Meus Projetos, lé em cima...

Click em ler postagem completa para ver o código



cls
@ECHO OFF & setlocal EnableDelayedExpansion
title Restaurador de Pastas - By: ValberCarneiro
FOR /L %%W IN (14,1,70) DO MODE CON:LINES=1 COLS=%%W
FOR /L %%W IN (1,1,25) DO MODE CON:COLS=70 LINES=%%W
color e
:unidade
set/p "unidade= Digite letra da unidade do seu pendrive: "
if not exist %unidade% goto noexist
if exist %unidade% goto acessar
:noexist
cls
echo unidade inexistente ou digitada incorretamente!
echo ===================================================
echo.
:noexist2
set/p "unidade= ERRO Tente novamente: "
if not exist %unidade% goto noexist2
if exist %unidade% goto acessar
:acessar
cd..
cd..
cd..
cd..
cd..
%unidade%
cls
echo Unidade "%unidade%" acessada!
echo ===================================================
echo.
:pasta
echo.
set/p "pasta= Informe o nome da pasta que deseja restaurar: "
if not exist %pasta% goto erro
if exist %pasta% goto existe
:erro
cls
echo Pasta inexistente ou digitada incorretamente!
echo ===================================================
echo.
:erro2
set/p "pasta= ERRO Tente novamente: "
if exist %pasta% goto existe
if not exist %pasta% goto erro2
:existe
set "mbarra=  ³"
cls
echo Restaurando Pasta...
echo.
set /P "mbarra1=%mbarra%"< nul
for /L %%j in (1,1,50) do (
for %%a in (f d a e) do (
color %%a
)
ping 0 -n 0 -w 0 > nul
set /P mbarra1=!mbarra1!Û< nul
set /a i = i - 10
)
attrib %pasta% -s -h
del /q %pasta%.link
cls
echo A pasta  "%pasta%" foi restaurada com sucesso!
echo ===================================================
echo.
set/p "continuar= Deseja restaurar uma outra pasta? [sim/nao]: "
if %continuar%== sim goto pasta
if %continuar%== SIM goto pasta
if %continuar%== nao goto exit
if %continuar%== NAO goto exit
if %continuar%== NÃO goto exit
if %continuar%== não goto exit
:exit
FOR /L %%W IN (25,-2,1) DO MODE CON:COLS=70 LINES=%%W
FOR /L %%W IN (70,-2,14) DO MODE CON:LINES=1 COLS=%%W
exit