Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Copiar Carpetas

18/05/2006 - 19:11 por lbenaventea | Informe spam
Ayuda Hacer una pregunta
Deseo copiar carpetas y ni siquiera logro copiar archivos...

La instrucción siguiente no me funciona:
FileCopy "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"

Para esta otra me falta algo (ignoro qué debo poner en FileSystemObject):
FileSystemObject.CopyFile "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"

Lo que me me han sugerido tampoco resulta:
Ruta1 = "C:\Finales\Marzo\"
Ruta2 = "C:\Iniciales\\Abril\"
Archivo = "*.XLS"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
End Sub

Deseo copiar todos los archivos -xls que tengo en una carpeta, a otra.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Miguel Zapico
18/05/2006 - 20:46 | Informe spam
Creo que debes definir primero el objeto FileSystemObject. Prueba con algo
asi, que usa el metodo CopyFolder en lugar de CopyFile

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "C:\Finales\Marzo", "C:\Iniciales\Abril"

Espero que te sirva,
Miguel.

"lbenaventea" wrote:

Deseo copiar carpetas y ni siquiera logro copiar archivos...

La instrucción siguiente no me funciona:
FileCopy "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"

Para esta otra me falta algo (ignoro qué debo poner en FileSystemObject):
FileSystemObject.CopyFile "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"

Lo que me me han sugerido tampoco resulta:
Ruta1 = "C:\Finales\Marzo\"
Ruta2 = "C:\Iniciales\\Abril\"
Archivo = "*.XLS"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
End Sub

Deseo copiar todos los archivos -xls que tengo en una carpeta, a otra.





Preguntas similares

 

Busqueda sugerida :