VBA - creating new directory and copy a template

[ricetime123]

Hi,

Is there a VBA to create a new directory and copy a template into it?

I know it is:
MkDir NewFolder


How do you copy a template into NewFolder? thanks

 

[Leith Ross]

Hello rictime123,

Below is an example of how to copy a file to the new folder.

Sub Macro1()


    Dim File      As string
    Dim NewFolder As Variant    ' <--- THIS MUST BE A VARIANT
    
        File = "C:\Users\Owner\Documents\Template.xlst"
        NewFolder = "H:\Templates"


        With CreateObject("Shell.Application")
            .Namespace(NewFolder).CopyHere File
        End With


End Sub