MoveFileMove um ou mais arquivos de um local para outro.
Sintaxe
object.MoveFile ( source, destination )
Argumentos:
FileSystemObject.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