Visual Basic para Aplicaciones - Mover archivos mediante VBA

Life is soft - evento anual de software empresarial
   
Vista:

Mover archivos mediante VBA

Publicado por Zeus Alberto Páez Rentería (6 intervenciones) el 24/02/2009 20:53:42
Alguien tendra algun codigo mediante el cual se pueda mover un archivo de un folder a otro mediante codigo VBA..

Quiero hacer una aplicacion que desde excel pueda mover ciertos archivos seleccionados por el usuario de un folder a otro.

Gracias de Antemano

Ing. Zeus Alberto Paez Renteria
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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Control de Stock
- Rompecabezas
- Juego del Ahorcado
Imágen de perfil de JuanC

RE:Mover archivos mediante VBA

Publicado por JuanC (431 intervenciones) el 24/02/2009 21:40:26
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Origen)
fs.copyfolder Origen, Destino
f.Delete True

también puede hacerse con la API de Windows

Saludos desde Baires, JuanC
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

RE:Mover archivos mediante VBA

Publicado por Zeus Alberto Páez Rentería (6 intervenciones) el 24/02/2009 22:30:02
Hola Juan muchas gracias de antemano por la ayuda

Este codigo funciona para mover los folders completos en caso de querer mover archivos podria poner...

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Origen)
For Each Fil In fs.Files
If Fil.Name = Ejemplo.dxf then
Set Filename = Fil
fs.Fil.CopyFil Origen, Destino
Fil.Delete True
End if
Next

Esto seria correcto...

Gracias
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