Save files to OneDrive using Access VBA - ms-access

Question

Our systems are changing over to cloud storage so our personal drives will be vanishing soon, therefore I need to save applications to users OneDrives.
This is new territory for me and what I am reading online is not making much sense.
This is what I have so far:
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Dim FileExistsbol As Boolean
Dim stFileName As String
Dim CopyFrom As String
Dim CopyTo As String
stFileName = "C:\Users\" & Environ("UserName") & "\OneDrive - Company"
stFileName = Trim(stFileName)
FileExistsbol = dir(stFileName) <> vbNullString
If FileExistsbol Then
Kill stFileName
CopyFrom = "C:\Test File.txt"
CopyTo = "C:\Users\" & Environ("UserName") & "\OneDrive - Company"
FileSystemObject.CopyFile CopyFrom, CopyTo
Else
CopyFrom = "C:\Test File.txt"
CopyTo = "C:\Users\" & Environ("UserName") & "\OneDrive - Company"
FileSystemObject.CopyFile CopyFrom, CopyTo
End If
This code has previously worked for copying to local drives, but believe it's not working on this occasion because the new drives it's trying to copy to is web based.
Error:
No error is actually being populated
Any help is appreciated

Answer 1

Note that your variable stFileName contains the directory path not a filename, and so the kill expression is targeting the directory.
However, instead of testing for and deleting the file, how about using the overwrite argument for the CopyFile method, e.g.:
Dim objFSO As New FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Test File.txt", "C:\Users\" & Environ("UserName") & "\OneDrive - Company", True
Set objFSO = Nothing
You'll need to add a reference to Microsoft Scripting Runtime in your project to enable the objFSO variable in my example to be defined using early binding.