@echo off
setlocal enabledelayedexpansion
goto main


:si
set true=1
goto :EOF

:no
set true=0
goto :EOF

:leer
set archivo=%1
set /a n=1
set /a tamano=%2
set resultado=
set true=0
for /l %%a in (1,1,%tamano%) do ( 
rem mayusculas
if  "!archivo:~%%a,1!"=="Á" ( 
call :si
set resultado=!resultado!A
)
if  "!archivo:~%%a,1!"=="É" (
call :si
set resultado=!resultado!E
)
if  "!archivo:~%%a,1!"=="Í" (
call :si
set resultado=!resultado!I
)
if  "!archivo:~%%a,1!"=="Ó" (
call :si
set resultado=!resultado!O
)
if  "!archivo:~%%a,1!"=="Ú" (
call :si
set resultado=!resultado!U
)
rem minusculas
if  "!archivo:~%%a,1!"=="á" (
call :si
set resultado=!resultado!a
)
if  "!archivo:~%%a,1!"=="é" (
call :si
set resultado=!resultado!e
)
if  "!archivo:~%%a,1!"=="í" (
call :si
set resultado=!resultado!i
)
if  "!archivo:~%%a,1!"=="ó" (
call :si
set resultado=!resultado!o
)
if  "!archivo:~%%a,1!"=="ú" (
call :si
set resultado=!resultado!u
)
if !true!==0 ( 
set "resultado=!resultado!!archivo:~%%a,1!" )
call :no
)
echo !resultado! >> "(sin tildes)%archiv%"
goto :EOF

:tildes
rem echo  %~z1
if exist %1 (
for /f "tokens=*" %%A in (%1) do (call :leer "%%A" %~z1 )
)
)
goto :EOF

:main
echo escriba el archivo a buscar tildes
set /p archiv=
call :tildes %archiv%

if !true!==0 ( set resultado=!resultado!!archivo:~%%a,1! )

if !true!==0 ( set "resultado=!resultado!!archivo:~%%a,1!" )