Ms-Dos - Copiar archivos

   
Vista:

Copiar archivos

Publicado por Hector (1 intervención) el 08/09/2017 22:25:47
quisiera saber si se puede copiar archivos de una carpeta a otra ... explico :
tengo un txt donde vienen los nombres de los archivos y con un bat quiero que busque estos archivos en una carpeta d:/yo a otra d:/tu
pero estos archivos pueden tener varias ext.

mia.tif
mira.ufc
mia.dep

espero me puedan ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Copiar archivos

Publicado por Antoni Masana (511 intervenciones) el 11/09/2017 07:09:17
Hola Hector

Se puede hacer de dos formas leer los archivos y mirar si están en el fichero TXT o Leer el TXT ir validar que existe el fichero y copiarlo.

Solo hay un problema y no es precisamente pequeño ni simple, se puede arreglar pero hay que hacer cosas especiales.

Te pongo las dos opciones que solo funcionan si no hay espacios en el nombre


Opcion - 1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
@echo off
:
:---&---- Aquí pondremos despúes del igual el directorio origen
:
SET Orig=
:
:---&---- Aquí pondremos despúes del igual el directorio Destino
:
SET Dest=
 
cd /D %Orig%
IF not exist FICHERO.TXT GOTO :Falta
FOR %%a in (*.*) do Call:Copiar %%a
GOTO:EOF
 
:Copiar
   findstr /i %1 FICHERO.TXT >nul 2>nul
   If ERRORLEVEL EQU 0 copy %1 %Dest%
   GOTO:EOF
 
:Falta
   echo no encuentro: FICHERO.TXT
   GOTO:EOF



Opcion - 2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
@echo off
:
:---&---- Aquí pondremos despúes del igual el directorio origen
:
SET Orig=C:\Mis_Imagenes
:
:---&---- Aquí pondremos despúes del igual el directorio Destino
:
SET Dest=C:\Mis_Copias
 
cd /D %Orig%
IF not exist FICHERO.TXT GOTO :Falta
FOR /F %%a in (FICHERO.TXT) do IF Exist %%a copy %%a %Dest%
GOTO:EOF
 
:Falta
   echo no encuentro: FICHERO.TXT
   GOTO:EOF


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad