macro copiar archivos

[pinkiluis]

¡ Hola ! a todos espero darma a entender tengo algo urgente que no h
podido solucionar y espero que alguien aqui me pueda ayudar, de verdad pido s
ayuda porque no he podido resolver esto, lo que quiero hacer es abrir un
ventana de windows el explorador bueno eso ya lo tengo lo que quiero e
seleccionar un archivo cual quiera y con un boton darle cargar y me genere un
copia de ese mismo archivo y lo mande a otra carpeta solamente eso es lo qu
ocupo hacer suena sencillo pero de verdad no he podido resolverlo y no teng
idea de como encontre en internet que existe la funcion copifile pero no pud
hechar andar esa funcion ni nada que se le paresca asi que de verdad pido s
ayuda y muchas gracias.

[Pedro F. Pardo]

Esta macro hace lo que necesitas, incluso te permite seleccionar varios ficheros al mismo tiempo. Y los copias todos en la carpeta:
"C:\Documents and Settings\USER\My Documents\"

Cambia la localización de esta carpeta en la macro para que se guarden
donde tu quieras.

------------8<------------8<-------------------


Sub copia_file()

Dim fd As FileDialog
Dim objfl As Variant
Dim filnam As String

'Carpeta donde se copiarán los ficheros ***CAMBIA ESTA CARPETA***
carpeta = "C:\Documents and Settings\USER\My Documents\" '<<<

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.ButtonName = "Seleciona"
.AllowMultiSelect = True
.Filters.Add "All Files", "*.*", 1
.Title = "Elige el Fichero que quieres abrir"
.InitialView = msoFileDialogViewDetails
.Show
For Each objfl In .SelectedItems
filnam = objfl
array_name = Split(filnam, "\")
nombre_file = array_name(UBound(array_name))
FileCopy filnam, carpeta & nombre_file
Next objfl
On Error GoTo 0
End With

Set fd = Nothing

End Sub

------------8<------------8<-------------------

� Hola ! a todos espero darma a entender tengo algo urgente que no he
podido solucionar y espero que alguien aqui me pueda ayudar, de verdad pido su
ayuda porque no he podido resolver esto, lo que quiero hacer es abrir una
ventana de windows el explorador bueno eso ya lo tengo lo que quiero es
seleccionar un archivo cual quiera y con un boton darle cargar y me genere una
copia de ese mismo archivo y lo mande a otra carpeta solamente eso es lo que
ocupo hacer suena sencillo pero de verdad no he podido resolverlo y no tengo
idea de como encontre en internet que existe la funcion copifile pero no pude
hechar andar esa funcion ni nada que se le paresca asi que de verdad pido su
ayuda y muchas gracias.

[pinkiluis]

Pedro F. Pardo escribió el 25/07/2012 17:16

Post by Pedro F. Pardo
Esta macro hace lo que necesitas, incluso te permite seleccionar vario
ficheros al mismo tiempo. Y los copias todos en la carpeta
"C:Documents and SettingsUSERMy Documents
Cambia la localización de esta carpeta en la macro para que se guarde
donde tu quieras
8<8<
Sub copia_file(
Dim fd As FileDialo
Dim objfl As Varian
Dim filnam As Strin
'Carpeta donde se copiarán los ficheros ***CAMBIA ESTA CARPETA**
carpeta = "C:Documents and SettingsUSERMy Documents
'<<
Set fd = Application.FileDialog(msoFileDialogFilePicker
With f
.ButtonName = "Seleciona
.AllowMultiSelect = Tru
.Filters.Add "All Files", "*.*",
.Title = "Elige el Fichero que quieres abrir
.InitialView = msoFileDialogViewDetail
.Sho
For Each objfl In .SelectedItem
filnam = objf
array_name = Split(filnam, ""
nombre_file = array_name(UBound(array_name)
FileCopy filnam, carpeta & nombre_fil
Next objf
On Error GoTo
End Wit
Set fd = Nothin
End Su
8<8<

ￜ Hola ! a todos espero darma a entender tengo alg
urgente que no h
podido solucionar y espero que alguien aqui me pueda ayudar, de verdad pid

s

Post by Pedro F. Pardo

ayuda porque no he podido resolver esto, lo que quiero hacer es abrir un
ventana de windows el explorador bueno eso ya lo tengo lo que quiero e
seleccionar un archivo cual quiera y con un boton darle cargar y me gener

un

Post by Pedro F. Pardo

copia de ese mismo archivo y lo mande a otra carpeta solamente eso es lo qu
ocupo hacer suena sencillo pero de verdad no he podido resolverlo y no teng
idea de como encontre en internet que existe la funcion copifile pero no pud
hechar andar esa funcion ni nada que se le paresca asi que de verdad pido s
ayuda y muchas gracias

hola hola que tal la verdad es que tu respuesta es muy buena me dej
selecciona
varios archivos al mismo tiempo y todo pero no me copia nada solo pued
seleccionarlos y le doy aceptar se cierra la ventana de dialogo pero no m
mand
nada a la carpeta que elegi para mandar los archivos no se si me puedas ayuda
con eso o si hay algo que yo tenga que hacer diferente muchas gracias.

[pinkiluis]

Pedro F. Pardo escribió el 25/07/2012 17:16

Post by Pedro F. Pardo
Esta macro hace lo que necesitas, incluso te permite seleccionar vario
ficheros al mismo tiempo. Y los copias todos en la carpeta
"C:Documents and SettingsUSERMy Documents
Cambia la localización de esta carpeta en la macro para que se guarde
donde tu quieras
8<8<
Sub copia_file(
Dim fd As FileDialo
Dim objfl As Varian
Dim filnam As Strin
'Carpeta donde se copiarán los ficheros ***CAMBIA ESTA CARPETA**
carpeta = "C:Documents and SettingsUSERMy Documents
'<<
Set fd = Application.FileDialog(msoFileDialogFilePicker
With f
.ButtonName = "Seleciona
.AllowMultiSelect = Tru
.Filters.Add "All Files", "*.*",
.Title = "Elige el Fichero que quieres abrir
.InitialView = msoFileDialogViewDetail
.Sho
For Each objfl In .SelectedItem
filnam = objf
array_name = Split(filnam, ""
nombre_file = array_name(UBound(array_name)
FileCopy filnam, carpeta & nombre_fil
Next objf
On Error GoTo
End Wit
Set fd = Nothin
End Su
8<8<

ￜ Hola ! a todos espero darma a entender tengo alg
urgente que no h
podido solucionar y espero que alguien aqui me pueda ayudar, de verdad pid

s

Post by Pedro F. Pardo

ayuda porque no he podido resolver esto, lo que quiero hacer es abrir un
ventana de windows el explorador bueno eso ya lo tengo lo que quiero e
seleccionar un archivo cual quiera y con un boton darle cargar y me gener

un

Post by Pedro F. Pardo

copia de ese mismo archivo y lo mande a otra carpeta solamente eso es lo qu
ocupo hacer suena sencillo pero de verdad no he podido resolverlo y no teng
idea de como encontre en internet que existe la funcion copifile pero no pud
hechar andar esa funcion ni nada que se le paresca asi que de verdad pido s
ayuda y muchas gracias

HOoooooo mi estimado creo que ya supe que fue un error mio no me di cuenta qu
al volver a definir la ruta por Ej: C:respaldo me falto colocar "
funciona perfectamente bien solo una pregunta mas es que aun soy principiant
esto este mismo codigo no podria servirme para abrir archivos?
En conclusion muchisimas gracias la verdad ahora mi tarea sera adentrarme ma
esto, asi que definimos esto como Tema Resulto.

[j***@misena.edu.co]

Buenas tardes amigo, a mi no me funciona, solo da la opcion de elegir el archivo, pero no lo copia
--
*Declinación de Responsabilidades:* Los servicios de MISENA son soportados
tecnológicamente por © Google y ofrecidos por el Servicio Nacional de
Aprendizaje – SENA de manera gratuita a los aprendices e instructores de
programas de formación titulada, las opiniones que contenga este mensaje
son exclusivas de su autor y no representan la opinión del Servicio
Nacional de Aprendizaje o de sus autoridades. El receptor deberá verificar
posibles virus informáticos que tenga el correo o cualquier anexo, razón
por la cual el SENA no es responsable de los daños causados por cualquier
virus transmitido en este correo electrónico.

Los contenidos, textos, imágenes, archivos enviados en este mensaje son
responsabilidad exclusiva del remitente y no reflejan ni comprometen de
ninguna manera a la institución. No se autoriza el uso de esta herramienta
para el intercambio de correos masivos, cadenas o spam, ni de mensajes
ofensivos, de carácter político, sexual o religioso, con fines de lucro,
con propósitos delictivos o cualquier otro mensaje que se considere
indebido o que vaya en contra de la Ley.