目录路径中的变量

我想使用名称中带有时间戳的创建目录函数，然后将文件复制到其中。我一辈子都无法弄清楚如何在路径中使用变量...

到目前为止，我的代码：

Function LPad(n) : LPad = Right("00" & n, 2) : End Function

timestamp = Year(Now) & LPad(Month(Now)) & LPad(Day(Now)) & LPad(Hour(Now)) & _
            LPad(Minute(Now)) & LPad(Second(Now))

Dim oShell : Set oShell = CreateObject("WScript.Shell")

oShell.CurrentDirectory = "C:\Users\Me\Desktop\Folder2"


newdir = "NewDirectory" & timestamp

Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")


' Create a new folder

oFSO.CreateFolder(newdir)


' Copy a file into the new folder

oFSO.CopyFile "C:\Users\Me\Desktop\Folder1\Document1.doc", "C:\Users\Me\Desktop\Folder2\newdir"

'messagebox when complete

x=x=msgbox("Folder "& newdir & " Created Successfully" ,0, "Done")

任何帮助将非常感激！