VBS - пакетные префиксные файлы с датой

Question

Предположим, у меня есть файлы, указанные ниже:

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

Как я могу записать файл .vbs для пакетного добавления даты СЕГОДНЯ в начало файла?Результат должен выглядеть примерно так:

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