
Mover PNG a carpeta con mismo nombre
Publicado por Angel (1 intervención) el 30/08/2022 08:10:01
Hola buenas noches, vengo a ver si me pueden ayudar ya que tengo imagenes PNG con el nombre de misma carpeta, solo quiero que cada imagen se vaya a la carpeta de mismo nombre, no todas las imagenes a una carpeta si no que img a carpeta con mismo nombre, he intentado
@echo off
set Dir_Orig=C:\Users\Shaw\Desktop\Mapas\52\1
set Dir_Dest=C:\Users\Shaw\Desktop\Mapas\52\1\carpeta
set Home=%CD%
cd %Dir_Orig%
for %%a in (*.png) do call :Mover "%%~na" "%%a"
cd %Home%
goto :EOF
:Mover
SET File=%1
SET File=%File:~1,-1%
SET Direc=%File:~0,2%
if not exist %Dir_Dest%\%Direc%\nul MD %Dir_Dest%\%Direc%\nul
move %2 %Dir_Dest%\%Direc%\.
goto :EOF
Pero al momento de ejecutar mueve las imegenes pero desaparecen y justo en la carpeta destino se crea un archivo llamado "ra" pero las imagenes no existen

@echo off
set Dir_Orig=C:\Users\Shaw\Desktop\Mapas\52\1
set Dir_Dest=C:\Users\Shaw\Desktop\Mapas\52\1\carpeta
set Home=%CD%
cd %Dir_Orig%
for %%a in (*.png) do call :Mover "%%~na" "%%a"
cd %Home%
goto :EOF
:Mover
SET File=%1
SET File=%File:~1,-1%
SET Direc=%File:~0,2%
if not exist %Dir_Dest%\%Direc%\nul MD %Dir_Dest%\%Direc%\nul
move %2 %Dir_Dest%\%Direc%\.
goto :EOF
Pero al momento de ejecutar mueve las imegenes pero desaparecen y justo en la carpeta destino se crea un archivo llamado "ra" pero las imagenes no existen

Valora esta pregunta


0