Append a folder????

[kanejone]

Another question if possible. The folder that I'm putting the files into is actually going to be generated just before I do the FileCopy. This is how the folder name is going to be generated.

Private Function MakeFolder(NewDir As String)
Dim dirname As String
dirname = "C:\Documentation JK\"
NewDir = dirname & NewDir
MkDir NewDir
End Function

Private Sub Archive_Click()
today = Format(Now, "dd mmmm yyyy")
MakeFolder (today)
Call CopyA
End Sub

So what I need to do is something like this:

FSO.CopyFile "C:\Documentation\*.htm", "C:\Test\MAKEFOLDER(today)", True

Is there any way to do this???
Thanks for the time you've taken, I really to appreciate it