VBS - 包含日期的批处理前缀文件

Question

假设我有以下文件：

c:\tmp\
       |_ tony.txt
       |_ peter.txt
       |_ mary.txt
       |_ may.txt

如何编写.vbs文件批量将TODAY日期附加到文件的前面？ 结果应如下所示：

c:\tmp\
       |_ 20110630_tony.txt
       |_ 20110630_peter.txt
       |_ 20110630_mary.txt
       |_ 20110630_may.txt

由于

Answer 1

这会让你入手吗？您可能想要添加一些错误检查...

Option Explicit

Const FOLDER_PATH = "C:\TMP"
Dim fso, folder, file, newFileName

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(FOLDER_PATH)
For Each file In folder.Files
    newFileName = Year(Now) & Right("0" & Month(Now),2) & Right("0" & Day(Now),2) & "_" & file.Name
    fso.MoveFile file.Path,file.ParentFolder.Path & "\" & newFileName
Next