Copy a folders & files

Hi
I am trying to get a master purchase order sheet to copy and rename a set of folders and files contained within to a central location.
The folders are in the 'Standard Documents Folder' and I am wanting these to copy to the main 'Contract' Folder on the server (at the minute I'm using a test folder 'Test').
The code I have below so far is:

Option Explicit
Sub Copy_Folder()
'This example copy all files and subfolders from FromPath to ToPath.
'Note: If ToPath already exist it will overwrite existing files in this folder
'if ToPath not exist it will be made for you.
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim wkb As Object
  
    FromPath = "K:\APPS\Standard Document Files\Contracts\New Contract Folder"  '<< Change
    ToPath = "K:\APPS\CONTRACT\Test\" & Range("A3") & " " & Range("A5")  '<< Change
    wkb.SaveAs Filename:="K:\APPS\CONTRACT\Test\" & Range("A3") & " " & Range("A5") & "\Purchase Order" & Range("A3") & "Purchase Order" & ".xlsb"
    
    If Right(FromPath, 1) = "\" Then
        FromPath = Left(FromPath, Len(FromPath) - 1)
    End If

    If Right(ToPath, 1) = "\" Then
        ToPath = Left(ToPath, Len(ToPath) - 1)
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If

    FSO.CopyFolder Source:=FromPath, Destination:=ToPath
    MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath

End Sub

I am getting the error "Object Variable or With Block Variable not set" on the following code:

wkb.SaveAs Filename:="K:\APPS\CONTRACT\Test\" & Range("A3") & " " & Range("A5") & "\Purchase Order" & Range("A3") & "Purchase Order" & ".xlsb"

Can anyone see why?

My next query when I can get this one sorted is to have the other excel files that are already on the copied files to be renamed in the same way (contract number etc, so RAMS would become C12345 RAMS etc).
What would be the best way to do this?
Kieran

I've got it to work and save the master workbook as the cell values, I just need to sort the correct name and folder destination out now!

Option Explicit
Sub Copy_Folder()
'This example copy all files and subfolders from FromPath to ToPath.
'Note: If ToPath already exist it will overwrite existing files in this folder
'if ToPath not exist it will be made for you.
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    
    FromPath = "K:\APPS\Standard Document Files\Contracts\New Contract Folder"  '<< Change
    ToPath = "K:\APPS\CONTRACT\Test\" & Range("A3") & " " & Range("A5")  '<< Change
  
    
    If Right(FromPath, 1) = "\" Then
        FromPath = Left(FromPath, Len(FromPath) - 1)
    End If

    If Right(ToPath, 1) = "\" Then
        ToPath = Left(ToPath, Len(ToPath) - 1)
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If
    
    FSO.CopyFolder Source:=FromPath, Destination:=ToPath
    MsgBox "You can find the files and subfolders in " & ToPath
    
ActiveWorkbook.SaveAs Filename:="K:\APPS\CONTRACT\Test\" & Range("A3") & " " & Range("A5") & "\Purchase Order" & Range("A3") & "Purchase Order" & ".xlsb"
End Sub

Ahh I'm still getting the same error message
"Run-time error '1004' Method 'SaveAs' of object'_workbook failed"

Option Explicit
Sub Copy_Folder()
'This example copy all files and subfolders from FromPath to ToPath.
'Note: If ToPath already exist it will overwrite existing files in this folder
'if ToPath not exist it will be made for you.

    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    
    FromPath = "K:\APPS\Standard Document Files\Contracts\New Contract Folder"  '<< Change
    ToPath = "K:\APPS\CONTRACT\Test\" & Range("A3") & " " & Range("A5")  '<< Change
  
    If Right(FromPath, 1) = "\" Then
        FromPath = Left(FromPath, Len(FromPath) - 1)
    End If

    If Right(ToPath, 1) = "\" Then
        ToPath = Left(ToPath, Len(ToPath) - 1)
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If
        
Dim Path1 As String
Dim Path2 As String
Dim myfilename As String
Dim fpathname As String

Path1 = ToPath
Path2 = ToPath & "\Purchase Orders"
myfilename = Range("A3") & "DCS Purchase Order" & ".xlsb"
fpathname = Path1 & "\" & Path2 & "\" & myfilename & ".xlsb"
ActiveWorkbook.SaveAs Filename:=fpathname, _
FileFormat:=xlExcel12, CreateBackup:=False
    
FSO.CopyFolder Source:=FromPath, Destination:=ToPath
MsgBox "You can find the files and subfolders in " & ToPath & "." & " " & "This Purchase Order sheet has been saved in the Purchase Orders folder"
    
End Sub

I have played around a bit more and can get this to work when I "note" out the SaveAs code, press my button, go back into the code and remove the ' from the SaveAs code and then press the button again.
Looking around on here and other sites, it is obviosuly giving the error as it can't find the folder I am asking the code to create and the save the file into this new folder.

Is there a way around this?
Kieran

ActiveWorkbook.SaveAs Filename:=Name, _
FileFormat:=50, CreateBackup:=False

Option Explicit
Sub Copy_Folder()
'This example copy all files and subfolders from FromPath to ToPath.
'Note: If ToPath already exist it will overwrite existing files in this folder
'if ToPath not exist it will be made for you.

    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    
    FromPath = "K:\APPS\Standard Document Files\Contracts\New Contract Folder"  '<< Change
    ToPath = "K:\APPS\CONTRACT\Test\" & Range("A3") & " " & Range("A5")  '<< Change
  
    If Right(FromPath, 1) = "\" Then
        FromPath = Left(FromPath, Len(FromPath) - 1)
    End If

    If Right(ToPath, 1) = "\" Then
        ToPath = Left(ToPath, Len(ToPath) - 1)
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
    
    End If
       
        
Dim Path1 As String
Dim myfilename As String
Dim Name As String

Path1 = ToPath & "\Purchase Orders"
myfilename = "C" & Range("A3") & " " & "DCS Purchase Order" & ".xlsb"
Name = Path1 & "\" & myfilename & ".xlsb"
ActiveWorkbook.SaveAs Filename:=Name, _
FileFormat:=50, CreateBackup:=False
    
FSO.CopyFolder Source:=FromPath, Destination:=ToPath
MsgBox "You can find the files and subfolders in " & ToPath & "." & " " & "This Purchase Order sheet has been saved in the Purchase Orders folder"
    
End Sub

Anyone got any ideas?

I have taken the SaveAs code out of the main code section now, put this into a separate module. Then added the call macro code to make this run within the main code section.

It still gives the error as the SaveAs tries to run before the folders are created in the first section of code. How can I get around this?

Kieran