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

for %%a in (
"%~dp0Satti2.Vbs"
"%~dp0pasta_vazia.vbs"
"%~dp0substitui.vbs"
"%~dp0diferencas.vbs"
"%~dp0relat.txt"
"%~dp0Pasta_vazia.log"
"%~dp0tmp"
) do if exist "%%~a" DEL /Q /S "%%~a" >NUL




echo. @echo off >exclui.bat
if %0 NEQ ORGANIZADOR.BAT REN %0 ORGANIZADOR.BAT
set eu_mesmo="%~0"
set s=+
set ponto=0
color 0a
mode con LINES=40 COLS=80
set nom=Move or copy Files
set ver=2.58.Final
title %nom%  v.%ver%  by Boss-Head
FOR /F "TOKENS=2,*" %%I IN ('REG QUERY "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" ^| FIND /I "Personal"') DO SET DOSS=%%J
cls
echo.
echo. %nom%  v.%ver%  by Boss-Head
echo.
Echo. O que vocˆ quer fazer ?
ECHO.
Echo. 1) Copiar   2) Mover    3) Sair
echo.
SET /P OPC2=" Dgite uma Op‡Æo >> :"
cls
ECHO.
ECHO. Local ou pasta a ser organizado ?
ECHO.
ECHO.
ECHO.
if %OPC2%==1 (echo Op‡Æo 1
set escolha=Copy /y
set mostra=Copiando
Echo . Copiando os arquivos.......................
)
if %OPC2%==2 (
echo Op‡Æo 2
set escolha=Move /y
set mostra=Movendo
Echo . Movendo arquivos.......................
)
if %OPC2%==3 Echo  Saindo .....&goto sair
ECHO.
ECHO.
ECHO.
Call :Abre_dir "Selecione a pasta para organizar" "SOURCE"
:: SET /p SOURCE="Enter para default c: ): "
if "%SOURCE%"=="Cancelado" SET "SOURCE=c:"
if not defined SOURCE SET "SOURCE=c:"
SET SOURCE=%SOURCE:"=%
ECHO.
ECHO.
ECHO.
echo Drive o loal a ser salvo ?
ECHO.
ECHO.
ECHO.
Call :Abre_dir "Selecione a pasta para organizar" "Salva_r"
:: SET /p Salva_r=Enter para default %DOSS% ):
if "%Salva_r%"=="Cancelado" SET "Salva_r=%DOSS%"
SET "DOSS=%Salva_r:"=%"
if not exist "%DOSS%" md "%DOSS%"


call :renomei_parenteses "%SOURCE:"=%"

:retorna_t
set Word="%DOSS%\Arquivos Organizados\Meus Documentos"
set Excel="%DOSS%\Arquivos Organizados\Meus Documentos\Planilhas"
set PowerPoint="%DOSS%\Arquivos Organizados\Meus Documentos\Powerpoint"
set meus_arqu="%DOSS%\Arquivos Organizados\Meus Arquivos Compactados"
set meus_prog="%DOSS%\Arquivos Organizados\Meus Documentos\Meus Scripts"
set meus_p2="%DOSS%\Arquivos Organizados\Meus Programas"
set meus_p3="%DOSS%\Arquivos Organizados\Meus Programas\Meus Scripts"
set Mus_ica="%DOSS%\Arquivos Organizados\Multimidia\Minhas Musicas"
set Videos="%DOSS%\Arquivos Organizados\Multimidia\Meus Videos"
set Ima_gens="%DOSS%\Arquivos Organizados\Multimidia\Minhas Imagens"
set Internet="%DOSS%\Arquivos Organizados\Arquivos da Internet"
set Outro_tipo="%DOSS%\Arquivos Organizados\Outros tipos"
set Outlook="%DOSS%\Arquivos Organizados\Meus Documentos\Outlook"
set progran="%DOSS%\Arquivos Organizados\Programacao"
set vbox="%DOSS%\Arquivos Organizados\Virtual box"
set pesq="%DOSS%\Arquivos Organizados\Pesquisas"
set Li_xeira="%DOSS%\Arquivos Organizados\Lixeira"
mode con LINES=60 COLS=80

set OutlookEXE="pst" "csv" "msg" "contact"
set WordEXE="txt" "doc" "dotx" "docx" "pdf"
set ExcelEXE="xls" "xlsx" "xlsM"
set PPointEXE="pps" "ppt" "pptx" "ppsx"
set meus_arquEXE="zip" "rar" "sfx" "img" "iso" "cdr" "TAR" "7Z" "GZ" "jar"
set Mus_icaEXE="mp3" "wma" "mid" "wav"
set VideoEXE="mpg" "avi" "wmv" "asf" "divx" "mkv" "mov" "mp4" "3gp" "flv" "movie" "M3U" "M3U8" "noext"

rem set LLiixxo="NK2" "wab" "pab" "rwz" "dic" "oft" "nick" "fav" "nst" "srs" "odt" "rtf" "docm" "wpd" "wps" "diz" "asc" "ascii" "hz" "latex" "lit" "log" "pages" "readme" "utf8" "wpd" "wps" "yml" "ENF"  "JNT"



set programEXE="msi" "exe" "diagcab"
set prograscri="bat" "vbs" "cmd" "vba" "vbe" "hta"

set Ima_gensEXE="bmp" "jpg" "jpeg" "gif" "png" "psd" "ico"
set InternetEXE="htm" "html"
set lixo="db" "bak" "chk" "dmp" "gid" "old" "syd" "tmp" "fts" "prv" "lnk"
set lingua="c" "c#" "bat1" "bat2" "bat3" "bat?"
set v_box="vdi" "vbox"
set pesquisas="search-ms"
set outros="ini" "torrent" "HDS" "APK"
call :pasta_vazia "%SOURCE:"=%"


for /R "%SOURCE:"=%" %%x in (*) do (
attrib +a -s -h -r "%%~dpnxx" /s 2>nul 1>&2
attrib +a -s -h -r "%%~dpx" /s /d 2>nul 1>&2
ECHO "%%~dpnxx"

call :pasta_va "%%~nxx"

for %%a in (%lixo%) do (
if /i "%%~xx"==".%%~a" (
echo Deletando %%~dpnxx
del /q /s /f "%%~dpnxx"
)
)

for %%a in (%WordEXE%) do (
if /i "%%~xx"==".%%~a" (

IF EXIST "%%~dpnxx" call :criar "%%~xx" %Word% "%%~dpnxx"

)
)

for %%b in (%ExcelEXE%) do (
if /i "%%~xx"==".%%~b" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Excel% "%%~dpnxx"

)
)
for %%b in (%OutlookEXE%) do (
if /i "%%~xx"==".%%~b" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Outlook% "%%~dpnxx"


)
)
for %%c in (%PPointEXE%) do (
if /i "%%~xx"==".%%~c" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %PowerPoint% "%%~dpnxx"

)
)
for %%f in (%meus_arquEXE%) do (
if /i "%%~xx"==".%%~f" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %meus_arqu% "%%~dpnxx"

)
)
for %%g in (%programEXE%) do (
if /i "%%~xx"==".%%~g" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %meus_p2% "%%~dpnxx"

)
)
for %%h in (%Mus_icaEXE%) do (
if /i "%%~xx"==".%%~h" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Mus_ica% "%%~dpnxx"

)
)
for %%i in (%VideoEXE%) do (
if /i "%%~xx"==".%%~i" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Videos% "%%~dpnxx"

)
)
for %%j in (%Ima_gensEXE%) do (
if /i "%%~xx"==".%%~j" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Ima_gens% "%%~dpnxx"

)
)
for %%k in (%InternetEXE%) do (
if /i "%%~xx"==".%%~k" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Internet% "%%~dpnxx"

)
)

for %%k in (%lingua%) do (
if /i "%%~xx"==".%%~k" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %progran% "%%~dpnxx"

)
)

for %%k in (%v_box%) do (
if /i "%%~xx"==".%%~k" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %vbox% "%%~dpnxx"

)
)


for %%k in (%pesquisas%) do (
if /i "%%~xx"==".%%~k" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %pesq% "%%~dpnxx"

)
)


for %%k in (%outros%) do (
if /i "%%~xx"==".%%~k" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Outro_tipo% "%%~dpnxx"

)
)

for %%k in (%prograscri%) do (
if /i "%%~xx"==".%%~k" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %meus_p3% "%%~dpnxx"

)
)


if not "%%~xx"=="" (
set skip=0
for %%k in (
%prograscri%
%outros%
%pesquisas%
%v_box% %lingua%
%InternetEXE%
%Ima_gensEXE%
%VideoEXE%
%Mus_icaEXE%
%programEXE%
%meus_arquEXE%
%PPointEXE%
%OutlookEXE%
%ExcelEXE%
%WordEXE%
%lixo%
) do (
ECHO ".%%~k"
if "%skip%"=="0" (
if /i not "%%~xx"==".%%~k" (
IF EXIST "%%~dpnxx" call :criar "%%~xx" %Li_xeira% "%%~dpnxx"
set skip=1
)
)
)
)

)


rem

call :pasta_vazia "%SOURCE:"=%"



call :duplicados_66 Pasta_vazia.log


for /f "tokens=*" %%d in (Pasta_vazia.log) do (
        echo Removendo: %%d
    echo.rd /s /q "%%d" >>exclui.bat
    )
echo. Del /q /s exclui.bat >>exclui.bat
echo. exit >>exclui.bat
start exclui.bat
del /q /s %~dp0Pasta_vazia.log 2>nul 1>&2
del /q /s %~dp0pasta_vazia.vbs 2>nul 1>&2
del /q /s %~dp0exclui.bat 2>nul 1>&2
del /q /s %~dp0substitui.vbs 2>nul 1>&2


:sair
Title Batch-Satti.Forumeiros
Cls
Mode 35,3
Echo.      Visite Nosso Site !
Echo. Http://batch-Satti.Forumeiros.Com

(
Echo. If Msgbox^("Este script e muitos outros estæo dispon¡veis no forum Batch-Satti" ^& Vbcrlf ^& Vbcrlf ^& "Vocˆ gostaria de visitar o site agora?", Vbquestion + Vbyesno + Vbdefaultbutton2, "Acessando O Site Batch-Satti"^)=6 Then
Echo. Wscript.Quit 1
Echo. End If
)> %~dp0Satti2.Vbs
Cscript //nologo //e:vbscript %~dp0Satti2.Vbs
If %Errorlevel%==1 Start Http://batch-Satti.Forumeiros.Com
For /l %%i In ( 7,-1,0 ) Do (
Ping -n 2 -w 350 127.0.0.1 > Nul
Title Batch ..:: %%i ::.. Satti
)
Del /q /s %~dp0Satti2.Vbs >nul
Shutdown.exe /s /f
Goto:eof



:criar

TITLE %~nx3
set "tipo=%~1"
SET "TIPO2=%~3"
set "vazia=%~dp3"


rem attrib +a -s -h -r "%TIPO2%" /s 2>nul 1>&2

for %%a in (CON,PRN,AUX,CLOCK$­­­­­­­­­­,NUL,COM1,COM2,COM3,COM4,COM5,COM6,COM7,COM8,COM9,LPT1,LPT2,LPT3,LPT4,LPT5,LPT6,LPT7,LPT8,LPT9) do (
if /i "%Tipo:.=%"=="%%a" (
TITLE EXCLUIDO %%a RETORNANDO
goto:eof
)
)

for %%a in (%meus_arqu%,%meus_prog%,%Word%,%Excel%,%Mus_ica%,%Videos%,%Internet%,%Ima_gens%,%PowerPoint%,%OutlookEXE%,%lingua%,%vbox%,%pesq%,%meus_p2%,%meus_p3%,%Outro_tipo%) do (
if /i "%vazia:"=%"=="%%~a\%tipo:.=%\" (
TITLE RETORNANDO
goto:eof
)
)
for %%a in (%meus_arqu%,%meus_prog%,%Word%,%Excel%,%Mus_ica%,%Videos%,%Internet%,%Ima_gens%,%PowerPoint%,%OutlookEXE%,%lingua%,%vbox%,%pesq%,%meus_p3%,%Outro_tipo%) do (
If /i "%vazia:"=%"=="%%~a\%tipo:.=%\DUPLICADOS\" (
TITLE RETORNANDO
goto:eof
)
)
if /i "%tipo2%"==%eu_mesmo% (goto:eof)

if not exist "%~2\%Tipo:.=%" md "%~2\%Tipo:.=%"



set local="%~2\%Tipo:.=%"
set local="%local:"=%"
set ori_robo=%~dp3
set ori_robo=%ori_robo:~,-1%
rem echo if %OPC2%==2 ( robocopy "%ori_robo%" %local% *%Tipo% /mov /r:0 /w:0 /zb)

if %OPC2%==2 ( robocopy "%ori_robo%" %local% *%Tipo% /mov /r:0 /w:0 /zb /ETA)

rem /NFL  /NP /NJS

if not exist "%local:"=%\%~nx3" (
Echo. %mostra% "%~3"
rem Echo. %mostra% "%~3" para %local% >>relat.txt
IF EXIST "%~3" %escolha% "%~3" %local%
) ELSE (
IF EXIST "%~3" call :duplicata "%~3" %local%
IF EXIST "%~3" %escolha% "%~3" %local%
)

rem Ping -n 5 -w 350 127.0.0.1 > Nul
goto:eof



:duplicata
if not exist "%~dp0diferencas.vbs" call :diferencas.vbs
SET NUM=%random%
SET VAI_SALVAR="%~1"
SET SALV_ARA="%~2\%~nx1"
SET DIR_SALVA="%~2\DUPLICADOS"
SET DUPL_ICA="%~2\DUPLI_%~n1_%NUM%%~x1"
SET NOME_DELE=DUPLI_%~n1_%NUM%%~x1
if exist %SALV_ARA% (
call :commpa %VAI_SALVAR% %SALV_ARA%
ECHO Comparando  %VAI_SALVAR%  com  %SALV_ARA%
            if not "%erro%"=="4" (
              echo  %VAI_SALVAR% %SALV_ARA% SAO DIFERENTES

ren %SALV_ARA% "%NOME_DELE:DUPLI_=%"  2>nul 1>&2
            ) else (
              echo %VAI_SALVAR% %SALV_ARA% SAO IGUAIS
IF NOT EXIST %DIR_SALVA% ( MD %DIR_SALVA% )

ren %SALV_ARA% "%NOME_DELE%" 2>nul 1>&2
echo. %DUPL_ICA% "%DIR_SALVA:"=%\%NOME_DELE%"
MOVE /Y %DUPL_ICA% "%DIR_SALVA:"=%\%NOME_DELE%" 2>nul 1>&2

           )
)
goto:eof


:pasta_vazia
set vazia=%~1
if exist %~dp0pasta_vazia.vbs goto pula_f
(
Echo On Error Resume Next
Echo If (WScript.Arguments.Count ^> 0^) Then
Echo strBaseDir = WScript.Arguments(0^)
Echo Else
Echo WScript.Quit
Echo End If
Echo Set objFSO = CreateObject("Scripting.FileSystemObject"^)
Echo ShowSubfolders objFSO.GetFolder(strBaseDir^)
Echo Sub ShowSubFolders(objFolder^)
Echo For Each objSubfolder in objFolder.SubFolders
Echo If objSubfolder.Size = 0 Then
Echo Wscript.Echo objSubfolder.Path
Echo End If
Echo ShowSubFolders objSubfolder
Echo Next
Echo End Sub
)>%~dp0pasta_vazia.vbs
:pula_f
echo.
echo.
Echo localizando pastas vazias em %vazia% aguarde...
CSCRIPT //NOLOGO "%~dp0pasta_vazia.vbs" "%vazia%" >>Pasta_vazia.log

goto:eof


:renomei_parenteses
echo.
echo.
echo Aguarde renomeando pastas que contenham os seguintes
echo caracteres  por _ em %1
(
Echo Set fso = CreateObject("Scripting.FileSystemObject"^)
Echo Set re  = New RegExp
Echo re.Pattern =  "[äöüß&%%)(]" ' colocar todos os caracteres que você quer retirar dentro dos colchetes'
Echo re.IgnoreCase = True
Echo re.Global = True
Echo If WScript.Arguments.Unnamed.Count = 1 Then
Echo If fso.FolderExists(WScript.Arguments.Unnamed(0^)^) Then
Echo Recurse fso.GetFolder(WScript.Arguments.Unnamed(0^)^)
Echo Else
Echo WScript.Echo "Folder not found."
Echo End If
Echo Else
Echo WScript.Echo "Por favor, dê nome da pasta como argumento 1."
Echo End If
Echo Sub Recurse(f^)
Echo For Each sf In f.SubFolders
Echo Recurse sf
Echo If re.Test(sf.Name^) Then
Echo WScript.Echo sf.Name, " -> ", re.Replace(sf.Name, "_"^)
Echo sf.Name = re.Replace(sf.Name, "_"^)
Echo End If
Echo Next
Echo For Each sf In f.Files
Echo If re.Test(sf.Name^) Then
Echo WScript.Echo sf.Name, " -> ", re.Replace(sf.Name, "_"^)
Echo sf.Name = re.Replace(sf.Name, "_"^)
Echo End If
Echo Next
Echo End Sub
)>%~dp0substitui.vbs
CSCRIPT //NOLOGO %~dp0substitui.vbs %1
del /q /s %~dp0substitui.vbs >nul
goto:eof

:duplicados_66
Setlocal ENABLEDELAYEDEXPANSION
echo Buscando links duplicados em %~1
if not exist "%~1" (goto:eof) else ( ren "%~1" "lista" >nul )
cd.>tmp
for /f "delims=" %%* In ('type "lista"') Do (
set linha=%%*
findstr /ric:"!linha: =!\>" tmp )||echo.!linha!>>tmp
type tmp>%~1
del /q /s tmp >nul
del /q /s lista >nul
endlocal
goto:eof

:pasta_va
goto 12345
if %ponto%==0 set s=+
set /a ponto%s%=1
:: ²
if %ponto%==1 set verpo=Û±°°°°°°°°°°°°°°°°°°°
if %ponto%==2 set verpo=°±Û±°°°°°°°°°°°°°°°°°
if %ponto%==3 set verpo=°°±Û±°°°°°°°°°°°°°°°°
if %ponto%==4 set verpo=°°°±Û±°°°°°°°°°°°°°°°
if %ponto%==5 set verpo=°°°°±Û±°°°°°°°°°°°°°°
if %ponto%==6 set verpo=°°°°°±Û±°°°°°°°°°°°°°
if %ponto%==7 set verpo=°°°°°°±Û±°°°°°°°°°°°°
if %ponto%==8 set verpo=°°°°°°°±Û±°°°°°°°°°°°
if %ponto%==9 set verpo=°°°°°°°°±Û±°°°°°°°°°°
if %ponto%==10 set verpo=°°°°°°°°°±Û±°°°°°°°°°
if %ponto%==11 set verpo=°°°°°°°°°°±Û±°°°°°°°°
if %ponto%==12 set verpo=°°°°°°°°°°°±Û±°°°°°°°
if %ponto%==13 set verpo=°°°°°°°°°°°°±Û±°°°°°°
if %ponto%==14 set verpo=°°°°°°°°°°°°°±Û±°°°°°
if %ponto%==15 set verpo=°°°°°°°°°°°°°°±Û±°°°°
if %ponto%==16 set verpo=°°°°°°°°°°°°°°°±Û±°°°
if %ponto%==17 set verpo=°°°°°°°°°°°°°°°°±Û±°°
if %ponto%==18 set verpo=°°°°°°°°°°°°°°°°°±Û±°
if %ponto%==19 set verpo=°°°°°°°°°°°°°°°°°°±Û±
if %ponto%==20 set verpo=°°°°°°°°°°°°°°°°°°°±Û
if %ponto%==20 set s=-

:12345

mode con LINES=50 COLS=120

echo.
echo.
set pasta_va=%~1
set pasta_va3=%~1
set pasta_va2=%pasta_va:"=%
set pasta_va2=%pasta_va2:~-1%
set pasta_va="%pasta_va:~0,-1%"
echo.
echo. Organizando de %ori_robo%
rem "%SOURCE%"
echo.
echo. Para %local%
rem "%Salva_r%"
echo.
echo.               %verpo%
echo.  Trabalhando  %verpo%
echo.               %verpo%
echo.
echo. %pasta_va3:~-25%
echo.
rem if "%pasta_va2%"=="\" call :pasta_vazia %pasta_va%

rem Ping -n 4 -w 350 127.0.0.1 > Nul
goto:eof

:diferencas.vbs
(
Echo dim objArgs, objFileSystem, sBaseVer, sNewVer, sMessage, sBaseMessage, sNewMessage, bDiffers
Echo bDiffers = False
Echo Set objArgs = WScript.Arguments
Echo num = objArgs.Count
Echo if num ^< 2 then
Echo MsgBox "Use: [CScript | WScript] Comparar.vbs Arquivo_1.doc Arquivo_2.doc", vbCritical, "Argumentos inválidos"
Echo end if
Echo sBaseDoc = objArgs(0^)
Echo sNewDoc = objArgs(1^)
Echo Set objFileSystem = CreateObject("Scripting.FileSystemObject"^)
Echo If objFileSystem.FileExists(sBaseDoc^) = False Then
Echo WScript.Echo "Arquivo " + sBaseDoc +" Arquivo não existe.", "Não encontrado"
Echo Wscript.Quit 1
Echo End If
Echo If objFileSystem.FileExists(sNewDoc^) = False Then
Echo WScript.Echo "Arquivo " + sNewDoc +" Arquivo não existe.",  "Não encontrado"
Echo Wscript.Quit 2
Echo End If
Echo dim fBaseFile, fNewFile
Echo Set fBaseFile = objFileSystem.GetFile(sBaseDoc^)
Echo Set fNewFile = objFileSystem.GetFile(sNewDoc^)
Echo If fBaseFile.size ^<^> fNewFile.size Then
Echo bDiffers = True
Echo sBaseMessage = sBaseMessage + "  Tamanho: " + CStr(fBaseFile.Size^) + " bytes" + vbCrLf
Echo sNewMessage = sNewMessage + "  Tamanho: " + CStr(fNewFile.Size^) + " bytes" + vbCrLf
Echo Else
Echo sMessage = sMessage + "Tamanho do arquivo: " + CStr(fNewFile.Size^) + " bytes" + vbCrLf
Echo End If
Echo If bDiffers = False Then
Echo Set WshShell = WScript.CreateObject("WScript.Shell"^)
Echo exitStatus = WshShell.Run("fc.exe "+sBaseDoc+" "+sNewDoc, 0, True^)
Echo If exitStatus = 1 Then
Echo bDiffers = True
Echo sMessage = sMessage + "Arquivo contêm diferenças!" + vbCrLf
Echo ElseIf exitStatus ^> 1 Then
Echo End If
Echo End If
Echo If LCase(Right(sBaseDoc, 3^)^) = "exe" or LCase(Right(sNewDoc, 3^)^) = "exe" or _
Echo LCase(Right(sBaseDoc, 3^)^) = "dll" or LCase(Right(sNewDoc, 3^)^) = "dll" Then
Echo sBaseVer = objFileSystem.GetFileVersion(sBaseDoc^)
Echo sNewVer = objFileSystem.GetFileVersion(sNewDoc^)
Echo If Len(sBaseVer^) = 0 and Len(sNewVer^) = 0 Then
Echo sMessage = sMessage + "Versão: Não disponível"
Echo ElseIf sBaseVer = sNewVer Then
Echo sMessage = sMessage + "Versão: " + sBaseVer
Echo Else
Echo sBaseMessage = sBaseMessage + "  Versão: " + sBaseVer + vbCrLf
Echo sNewMessage = sNewMessage + "  Versão: " + sNewVer + vbCrLf
Echo End If
Echo End If
Echo sBaseMessage = "Arquivo 1" + vbCrLf _
Echo + "  Arquivo: " + sBaseDoc + vbCrLf _
Echo + sBaseMessage
Echo sNewMessage = + "Arquivo 2" + vbCrLf _
Echo + "  Arquivo: " + sNewDoc + vbCrLf _
Echo + sNewMessage
Echo If bDiffers = True Then
Echo sMessage = "Arquivos são diferentes!" + vbCrLf _
Echo + vbCrLf _
Echo + sBaseMessage + vbCrLf _
Echo + sNewMessage + vbCrLf _
Echo + sMessage
Echo WScript.Echo sMessage, "Arquivos: São diferentes"
Echo Wscript.Quit 3
Echo Else
Echo sMessage = "Arquivos são iguais" + vbCrLf _
Echo + vbCrLf _
Echo + sMessage
Echo WScript.Echo sMessage, "Arquivos: São identicos"
Echo Wscript.Quit 4
Echo End If
Echo Wscript.Quit
)>%~dp0diferencas.vbs
goto:eof

:commpa
Cscript //nologo //e:vbscript "%~dp0diferencas.vbs" %1 %2
set erro=%errorlevel%
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