Move um ou mais arquivos de um local para outro.
Sintaxe
object.MoveFile ( source, destination )
Argumentos:
FileSystemObject.Comentários
Caracteres curinga só podem ser usados no último componente de caminho do argumento de origem. Se você tiver passado qualquer 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ê tiver usado caractere curinga no caminho de origem, espera-se que o destino seja um diretório existente. Caso contrário, um erro será exibido 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