Macro to copy server file into local folder, and change data source to this new file

[rickywangca]

Hi all, I'm trying to figure out this problem with copying a file to a new directory, and then using this new file as the data source for all my tables. The copying subroutine works, but I just can't seem to get the source to connect, either it gives an error or just doesn't run. Here's the code; any help appreciated!!

Sub FileCopy()

'Declare Variables
Dim FSO As Object
Dim user As String


'Create Object
user = (Environ("Username"))
Set FSO = VBA.CreateObject("Scripting.FileSystemObject")


Call FSO.CopyFile("S:\*source_directory*", "C:\Users\" & user & "\Downloads\", True)


End Sub

~~~~~~~~

Sub sourceChange()


Application.DisplayAlerts = False


Dim i As Integer
Dim user As String
Dim awc As WorkbookConnection


user = (Environ("Username"))


For i = 1 To ActiveWorkbook.Connections.Count
    Set awc = ActiveWorkbook.Connections.Item(i)
    With awc.OLEDBConnection
        .SourceDataFile = "C:\Users\" & user & "\Downloads\database.accdb"
        .SourceConnectionFile = "C:\Users\" & user & "\Downloads\database.accdb"
        .connection = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\" & user & "\Downloads\database.accdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Info Validation=False"
        .Reconnect
    End With
Next i


Application.DisplayAlerts = True


End Sub