Question

基于Microsoft在此处告诉我的内容：http://msdn.microsoft.com/en-us/library/xbfwysex(v=vs.84).aspx

此脚本应该可以正常工作

Sub Copy_Folder()
    FileSystemObject.CopyFolder "C:\Testing\Test\", "C:\Testing\Test" & "_" & Format(Now, "yyyy-mm-dd")
End Sub

在玩游戏时，我确实收到了一些错误，告诉我脚本正在运行。然而，这运行没有错误，但它只是不起作用。也许它是日期连接，所以我注释掉，只是将文件夹重命名为Tests（复数），它也运行w / o错误但没有做它应该做的事情。我甚至将文件夹从c：\ Testing移到了c，nope的根目录。抱歉，这是菜鸟，但我不明白。

Answer 1

正如我在评论中提到的，您无法使用Format()。另外，如果您不需要时间，请使用Date代替Now。这是VBScript的替代方案。

' Global scope...
Dim FileSystemObject

' Somewhere along the way...
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")

' Your function...
Sub Copy_Folder()

    Dim strDate
    strDate = Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)

    FileSystemObject.CopyFolder "C:\Testing\Test\", "C:\Testing\Test" & "_" & strDate

End Sub

最后，上面的代码应该返回错误。确保您未在代码中的任何位置使用On Error Resume Next。这几乎从来都不是一个好主意，特别是对于初学者或调试时。

VBScript NOOB复制文件文件夹

1 个答案: