Как сохранить файл на общий диск в сети с помощью VBA

Question

Используя попытку написать код, который сохранит файл на общий диск в нашей сети. Если я использую сопоставленный диск в качестве места назначения (т. Е. R: ...), то он работает без проблем. НО, не все сопоставлены с этим, поэтому я хочу сохранить файл, используя \ ourserver \ serverfolder ...

При попытке заменить «R: \» & имя файла с «\ ourserver \ serverfolder \ "& имя файла, я получаю сообщение об ошибке 76," Путь к файлу не найден. "

В сущности, вопрос заключается в том, как сохранить файл на общий диск, используя общий путь к диску через vba?

образец кода принимает SourceFile "C: \ дома \ myhouse.pdf" ... и хочет сохранить в файл назначения "\ ourserver \ serverfolder \ anotherfolder \ myhouse.pdf"

Private Sub CopyRenameFile(ByRef SourceFile As String, ByRef DestinationFile As String) 
On Error Resume Next 
    FileCopy SourceFile, DestinationFile 
     If Err.Number <> 0 Then 
      Call LogError(Err.Number, Err.Description, "CopyRenameFile() Class FileMoverMove", , True) 
      MsgBox "Copy error: " & SourceFile 
     End If 
On Error GoTo 0 

End Sub

Answer 1

вы близки, как вы просто пропустите один ведущий слэш в пути UNC:

DestinationFile = "\\ourserver\serverfolder\" & file name