Upload file into sharepoint

[ssingh75]

Can anyone help me to upload file into sharepoint link

i'm using the below code but its not working.....thanks in advance


Dim SharepointAddress As String
Dim LocalAddress As String
Dim objNet As Object
Dim FS As Object
SharepointAddress = "https://abc.sharepoint.com/sites/CommunicationDev/test_tree/test/Data"
LocalAddress = "D:\abc\Test.xls"
Set objNet = CreateObject("WScript.Network")
Set FS = CreateObject("Scripting.FileSystemObject")
objNet.MapNetworkDrive "A: ", SharepointAddress ''''''M getting errror here

If FS.FileExists(LocalAddress) Then
FS.CopyFile LocalAddress, SharepointAddress
End If

objNet.RemoveNetworkDrive "A: "
Set objNet = Nothing
Set FS = Nothing