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