2016-05-27 13 views
0

Mit dem Versuch, Code zu schreiben, der eine Datei auf einem freigegebenen Laufwerk in unserem Netzwerk speichert. Wenn ich ein zugeordnetes Laufwerk als Zielort verwende (d. H. R: ...), funktioniert es ohne Probleme. ABER, nicht jeder ist dem zugeordnet, also möchte ich in der Lage sein, die Datei use \ ourserver \ serverfolder zu speichern ...So speichern Sie eine Datei auf einem freigegebenen Laufwerk im Netzwerk mit VBA

wenn ich versuche, "R: \" & Dateiname mit "\ Ourserver \ Serverfolder \" zu ersetzen "& Dateiname, ich erhalte einen Fehler 76," Dateipfad nicht gefunden. "

Im Wesentlichen ist die Frage, wie kann ich eine Datei auf einem freigegebenen Laufwerk speichern, mit dem freigegebenen Laufwerkspfad, über VBA?

der Beispielcode nimmt Quell "C: \ Häuser \ myhouse.pdf" ... und will Zieldatei "\ 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 speichern

Antwort

1

Sie sind in der Nähe, wie Sie nur einen führenden Schrägstrich in dem UNC-Pfad verpassen:

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