Este script lo grabaría en el escritorio de WINDOWS. Al pincharlo realizara una copia de la planilla EXCEL, hasta un máximo de 10 versiones. Al llegar a la versión 10, desaparecerá la versión más antigua y esta se grabar como versión 10 (la mas reciente). Luego abrirá la planilla EXCEL para trabajar. Se puede adaptar a la imaginación del usuario.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
@echo off setlocal enabledelayedexpansion set ruta=d:\Fuentes\version\ set archivo=planilla.xlsx set ver[2]=1 set ver[3]=2 set ver[4]=3 set ver[5]=4 set ver[6]=5 set ver[7]=6 set ver[8]=7 set ver[9]=8 set ver[10]=9 for /F %%i in ("%archivo%") do set nombre=%%~ni if exist %ruta%%nombre%-10.xlsx goto renombra for /L %%a in (1,1,10) do if not exist %ruta%%nombre%-%%a.xlsx set archver=%ruta%%nombre%-%%a.xlsx && goto copia :renombra for /L %%a in (2,1,10) do ( copy /Y %ruta%%nombre%-%%a.xlsx %ruta%%nombre%-!ver[%%a]!.xlsx >NUL ) set archver=%ruta%%nombre%-10.xlsx :copia copy /Y "%ruta%%archivo%" "%archver%" >NUL start "" "%ruta%%archivo%" >NUL if errorlevel 4 echo "El archivo esta ABIERTO, debe cerrarlo primero" && pause goto:eof |