Método MoveFile

Move um ou mais arquivos de um local para outro.

Sintaxe

object.MoveFile ( source, destination )

Argumentos:

  • Object: Obrigatório. O objeto é sempre o nome de um FileSystemObject.
  • Source: Obrigatório. Especificação do arquivo de string de caracteres, que pode incluir caracteres curinga, de um ou mais arquivos a serem copiados.
  • Destination: Obrigatório. Destino da string de caracteres no qual os arquivos de origem devem ser copiados. Caracteres curinga não são permitidos.

Comentários

Curingas só são permitidos no final do caminho de origem. Se você tiver especificado um caminho incorreto, um erro será exibido informando que os arquivos de origem ou os diretórios de destino não existem.

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

Exemplo 1:

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

' Usage
MoveSingleFile "C:\Path\To\Source\File.txt", "C:\Path\To\Destination\File.txt"

Exemplo 2:

Nota:

Se você usar um curinga no caminho de origem, o destino deverá ser um diretório existente. Caso contrário, você receberá uma mensagem de erro informando que o diretório não existe.

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

' Usage
MoveMultipleFiles "C:\Path\To\Source\*.txt", "C:\Path\To\Destination\" 'Here Destination Directory must exists