VBScript 复制相同的文件并在时间戳中添加第二个

Question

我想使用 VB 脚本将同一文件复制 10000 次并更改时间戳。原始文件名为 MyFile.txt。所以它会像MyFile_20100131010000.txt一样被复制。第二次复制的文件应使用名称 MyFile_20100131010001.txt.And 以此类推，如 MyFile_20100131021003.txt。我正在使用下面的代码片段。但不确定如何将 DateAdd("s",intCount,"31-Jan-10 08:50:00") 转换为时间戳。例如

For intCount = 1 to 10000   
     strDate = DateAdd("s",intCount,"31-Jan-10 08:50:00") 
     strNewName = objFSO.GetBaseName(objSourceFile) & "_" & strDate & "." & objFSO.GetExtensionName(objSourceFile)
    'CopyFile(strNewName)
Next

请指教。

Answer 1

好的，这在 VBA 中稍微容易一些，正如我的评论中所暗示的那样，但在 VBScript 中也不是那么棘手。

您要使用的函数是 DatePart 函数。它有一堆您正在使用的参数，可以在 here.

中找到

要使用它生成年-月-日-时-分-秒时间戳，您基本上需要将许多这些参数连接在一起。以防万一函数执行之间的秒数有一个滴答声，值得事先分配 dtNow:

Dim dtNow
Dim i
Dim strDatePart

For i = 0 to 10000
    dtNow = DateAdd("s",i,"31-Jan-10 08:50:00")
    strDatePart = DatePart("yyyy", dtNow) & DatePart("m", dtNow) & DatePart("d", dtNow) & DatePart("h", dtNow) & DatePart( "n", dtNow) & DatePart("s", dtNow)
    '' Save your file here
Next

VBScript 复制相同的文件并在时间戳中添加第二个

VBScript Copy same file with adding second in Timestamp

vbscript

timestamp

file-copying