Método CopyFile

Copia um ou mais arquivos de um local para outro.

Sintaxe

object.CopyFile (source, destination)

Argumentos

• Object: Obrigatório. Qualquer variável de objeto que retorna um objeto FileSystemObject.
• Source: Obrigatório. O caminho e o nome do arquivo a ser copiado. O nome do arquivo (mas não o caminho) pode conter caracteres curinga.
• Destination: Obrigatório. O caminho da pasta de destino na qual a cópia do arquivo deve ser feita. O argumento destination não pode incluir caracteres curinga.

O exemplo a seguir ilustra o uso do método CopyFile.

Exemplo 1:

Function CopySingleFile(source, destination)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile source, destination
End Function

'Usage
CopySingleFile "C:\Temp\test.txt", "C:\Temp\dest\"

'Note – If Source file doesn’t exist, an empty file will be created at 
destination

Exemplo 2:

Function CopyMultipleFiles(source, destination)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile source, destination
End Function

' Usage
CopyMultipleFiles "C:\Temp\*.txt", "C:\Temp\Destination\"