FileCopy() - Zugriff verweigert
20.12.2018 11:22:24
Peter
ich will mit FileCopy() Personal.xlsb nach Googledrive kopieren, damit ich diese Datei schnell auf meine anderen Rechner laden kann - doch erhalte ich immer den Fehlercode: Zugriff verweigert
Kopiere ich eine andere Datei zB. test.xlsm aus dem gleichen Ordner nach GoogleDrive funktioniert es
Kann mir einer sagen, warum? resp. was muss ich tun um Personal.xlsb kopieren zu können.
Sub X_Copy_File()
Dim sFil$, sDirUsr$, sDirExe$, sDirGoo$
sDirUsr = Environ("UserProfile")
sDirGoo = sDirUsr & "\Google Drive\=Temporär\"
sDirExe = sDirUsr & "\AppData\Roaming\Microsoft\Excel\XLSTART\"
'sFil = "PERSONAL.XLSB" 'Fehler Zugriff verweigert
sFil = "test.xlsm" 'ohne Fehler
Call to_Copy_File(sDirExe, sDirGoo, sFil) '
End Sub
Sub to_Copy_File(ByVal SrcPath As String, ByVal DstPath As String, ByVal FileName As String) ' _
Su181220 von Web
Dim src As Variant, dst As Variant
src = SrcPath & FileName ' Namen der Quelldatei festlegen.
dst = DstPath & FileName ' Namen der Zieldatei festlegen.
FileCopy src, dst ' Quell- in Zieldatei kopieren
End Sub
vielen Dank für Euren Tipp
lg Pepi