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

目录路径中的变量

1 个答案: