目录路径中的变量

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

目录路径中的变量

Variable in path to directory

variables

vbscript

path