elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Crear Varias carpetas y Sub-Carpetas
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Crear Varias carpetas y Sub-Carpetas  (Leído 516 veces)
P3NDULO

Desconectado Desconectado

Mensajes: 19


Ver Perfil
Crear Varias carpetas y Sub-Carpetas
« en: 23 Agosto 2019, 03:07 am »

Buenas.
 Cree este diminuto script, en mi trabajo hay c=que realizar barias carpetas, con algunas normas.
Por ejemplo.

La fecha es AAAAMMDD y numero de incidente
Las carpetas deben estar dentro de un laboratorio
cada entrega depende de que impacta (Data, Reports, App, etc)
Le coloque para que al momento de colocar los datos no esten en blanco, con los if.
Seguro existen maneras menos artesanales, pero asi me funciona  :rolleyes: :rolleyes: :rolleyes:
Se los dejo aquí, para el que necesite de alguna parte, pues lo use, y si alguno lo quiere mejorar, y compartir...
Código:
@ECHO off
title Carpetas Entrega             Fcoelho 0.2
color f1
MODE CON COLS=50 LINES=15
set bausch="bau"
:menu
cls 
SET /P labora= Nombre de Laboratorio :
    REM con el siguiente if verificamos si colocaron algun dato
        if not defined labora (
            set torio= NuevoLaBoratorio
            ECHO  No tiene nombre de laboratorio.
            ECHO  Se creara carpeta NuevoLaBoratorio
        ) else (
            set torio=%labora%
        )
    echo.

REM Se convierte la fecha en el formati invertido y sin las divisiones
set DD=%DATE%
set fecha=%DD:/=%
set AAMMDD=%fecha:~-4%^%fecha:~2,2%^%fecha:~0,2%
:menu2
SET /P report= Colocar Numero Incidente :
    REM If para validar el numero de reporte
        if not defined report (
            ECHO Debes colocar numero de reporte
            goto menu2
        ) else (
            set numero=%report%
        )

[color=blue]:opcion
ECHO.
ECHO  ******* Tipo de Entrega *********
ECHO _ 1.Data
ECHO _ 2.APP_WEB
ECHO _ 5.Reporte
ECHO _ 0. Ninguna de las anteriores:
ECHO.
SET /P imp=  OPCION :



REM Validar que valor colocan
    if not defined imp (
        echo Colocar algun Caracter
        goto opcion
    ) else (
        if %imp% == 1 goto Data
        if %imp% == 2 goto app
        if %imp% == 5 goto repor
        echo Recuerde colocar valores validos
        pause>nul
        goto opcion
    )[/color]

:Data
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"01.DataBaseUpdate"\"SELECT DATA,VERSION FROM _DBVERSION"\Data\
goto carpeta

:app
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"02.APP_WEB"\"entities"\
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"02.APP_WEB"\"JS"\"Controllers"\
goto carpeta2
 
:repor
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"01.DataBaseUpdate"\"SELECT DATA,VERSION FROM _DBVERSION"\Reportes\
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"05.Reports"\
goto carpeta2
 
:otro
ECHO Gracias por estar aqui.
ECHO Desea Intentar otra vez.
ECHO 1 . Si (Puedes Utilizar la letra Y o S, tambien el numero 1)
ECHO 2 . No (Puedes Utilizar la letra N, tambien el numero 2,0)
set /P sal=
if %sal% == 1
goto menu
if %sal% == Y
goto menu
if %sal% == y
goto menu
if %sal% == S
goto menu
if %sal% == s
goto menu
if %sal% == N
exit
if %sal% == n
exit
if %sal% == 0
exit
if %sal% == 2
exit


:carpeta
cls
ECHO.
ECHO    ********************
ECHO    *                  *
ECHO    * Carpetas Creadas *
ECHO    *                  *
ECHO    ********************
ECHO.
pause>nul
explorer.exe "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"01.DataBaseUpdate"\"SELECT DATA,VERSION FROM _DBVERSION"\Data\
Exit

:carpeta2
cls
ECHO.
ECHO    ********************
ECHO    *                  *
ECHO    * Carpetas Creadas *
ECHO    *                  *
ECHO    ********************
ECHO.
pause>nul
explorer.exe "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\
Exit
 
 
REM :BD sqlcmd -S Miservidor\nombredeinstancia con eso puedo conetarme y colocar los comandos hasta colocar GO





Espero le ayude a alguien, y disculpen, mi manera de hacerlo jejejeje

 :silbar: :silbar: ;-)

Modifique para que esten en las opciones, y coloquen valores específicos, gracias por el comentario 
Citar
@string Manolo


« Última modificación: 23 Agosto 2019, 16:48 pm por P3NDULO » En línea

@XSStringManolo
<svg/onload=alert()>
Colaborador
***
Desconectado Desconectado

Mensajes: 2.267


Turn off the red ligth


Ver Perfil WWW
Re: Crear Varias carpetas y Sub-Carpetas
« Respuesta #1 en: 23 Agosto 2019, 04:05 am »

if %sal% == 1
    goto menu
    if %sal% == Y
    goto menu
    if %sal% == y
    goto menu
    if %sal% == S
    goto menu
    if %sal% == s
    goto menu
    if %sal% == N
    exit
   
    if %sal% == n
    exit
    if %sal% == 0
    exit
   
    if %sal% == 2
    exit

Si se pulsa cualquier otra letra se continua la ejecución del programa no?
Se puede poner:
if

else if

else if

else if

else

Así te aseguras que no se haga nada que el usuario no quiere si por ejemplo le da a la M porque está al lado de la N, o porque lee mal.
O pones un:
goto otro
después de los if, y ya lo solucionas.

Seguro que a alguien le resulta útil! Leí a mucha gente preguntando como hacer cosas parecidas.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Copiar el script en varias carpetas [vbscript] « 1 2 »
Scripting
kdemia 19 8,536 Último mensaje 23 Septiembre 2009, 00:27 am
por kdemia
ayuda! para RENOMBRAR varias carpetas dentro de otra
Scripting
ronal_ferlan 4 2,273 Último mensaje 4 Marzo 2013, 23:35 pm
por dato000
Checksum Compare, verificando la integridad de los ficheros de varias carpetas
Noticias
wolfbcn 0 830 Último mensaje 10 Julio 2014, 21:19 pm
por wolfbcn
Copiar un archivo a varias carpetas
Scripting
Paco Prieto 0 602 Último mensaje 18 Febrero 2019, 21:11 pm
por Paco Prieto
Batch para renombrar varias carpetas
Scripting
Caia 0 622 Último mensaje 3 Abril 2019, 02:38 am
por Caia
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines