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