String VBScript将日期转换为字符串

因此，我有一个可能很简单的问题，我找不到答案

我正在编写一个VBScript，它将子文件夹从一个文件夹移动到另一个文件夹。移动时，我希望将日期附加到子文件夹名称上。我的一切工作正常，只是我不知道如何将日期转换为字符串，以便将其添加到文件夹名称中

curDate =  Month(Date) + "_" + Day(Date) + "_" + Year(Date) + "_" + Time

If  fs.FolderExists(rsltFldrPath) Then

'Grab folder and Subfolders
Set fldr = fs.GetFolder(rsltFldrPath)
Set subFldr = fldr.SubFolders

For each folder in subFldr
    moveTo = archFldrPath + "\" +folder.name + curDate
    fs.MoveFolder folder, moveTo
Next
End If

感谢您的帮助。

---

谢谢

VBScript中的字符串连接运算符是“&”，因此快速修复方法是：

>> curDate =  Month(Date) & "_" & Day(Date) & "_" & Year(Date) & "_" & Time
>> WScript.Echo curDate
>>
7_22_2011_5:32:55 PM

---

如果您指定了确切的所需结果，我愿意提出一种更好的方法来实现您的目标。

答案不起作用，因为时间需要重新格式化以删除冒号（：）文件夹不能有冒号

尝试

我相信有一个更简洁的答案，但这也会起作用。填充不应该是一个问题，因为下划线将否定重复的可能性

---

我想发表评论，但没有足够的代表。

Hm…我的主要目标是让一个名为“Results”的文件夹最终被称为“Results\u Month\u Day\u Year\u Time”，这样当我移动它时，就不会有其他可能被覆盖的文件了。“Results”后面的空间呢？你想要下午/上午的时间吗？日和月应该是零填充的吗？谢谢，这真的很准确！

curDate =  Month(Date) & "_" & Day(Date) & "_" & Year(Date) & "_" & Time

Replace(CurDate,":","-")