Переменная в пути к каталогу

Question

Я хотел бы использовать функцию создания каталога с меткой времени в имени и скопировать туда файл. Я не могу за жизнь мне понять, как я могу использовать переменную в пути ...

Мой код до сих пор:

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") 

Любая помощь будет высоко ценится!

Answer 1

взгляните на Concatenation Operator (&).
Вы должны расширить переменную (newdir), как это:

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