I need a way to copy every file from a server's url to my C drive using VBA

[USAMax]

Our network has become very slow so I need to work with local files and I cannot trust the user to copy the files.

The server is a SharePoint server and the url starts with "\\sps.global."

FileCopy doesn't work so has anyone got a solution that will work?

I have looked for hours and tried dozens of solutions for http and local drive to local drive.

I need to copy every file in the folder from the server's url to a local folder.

Among the things I have tried:
Shell "Copy " & strPathToCopy & " " & strSharePointPath
Shell "xCopy " & strPathToCopy & " " & strSharePointPath
FileCopy strPathToCopy, strSharePointPath

Note: strPathToCopy ends with \*.*
Shell copy's error is File not found.
FileCopy said something about a bad file name.

 

[USAMax]

Here is how you would write it:

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr) As LongPtr
#Else

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
#End If

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

sub test()
dim DownloadFile as boolean

DownloadFile = URLDownloadToFile(0&, downloadlink, _
filename, BINDF_GETNEWESTVERSION, 0&)

end sub

 

[USAMax]

Sorry everyone, this still doesn't work.