The easiest way is to do a simple copy/paste windows.
Dim Vault As New EdmVault5
Dim folder As IEdmFolder5
Dim file As IEdmFile5
Dim destfolder As String
Vault.LoginAuto "BllueBus", 0
Set file = vault.GetFileFromPath("D:\BE_Produit_01\Fichiers pour export\Donnnées Publiées\PDF\U100023AA-R01.pdf")
destfoler = "C:\Temp\"
FileCopy "D:\BE_Produit_01\Fichiers pour export\Donnnées Publiées\PDF\U100023AA-R01.pdf", "C:\Temp\U100023AA-R01.pdf"
All you have to do is put variables to manage different files and use the GetFile method to get the file locally before making the copy.
Sub CopyFile()
Dim Vault As EdmVault5
Dim folder As IEdmFolder5
Dim file As IEdmFile5
Dim destfolder As String
Set Vault = New EdmVault5
Vault.LoginAuto "BlueBus", 0
Set folder = Vault.GetFolderFromPath("D:\BE_Produit_01\Fichiers pour export\Donnnées Publiées\PDF\")
Set file = folder.GetFile("U100023AA-R01.pdf")
file.GetFileCopy 0, "", 0
destfolder = "C:\PDF\"
FileCopy file.GetLocalPath(folder.ID), destfolder & file.Name
End Sub