  |
Option Explicit
Call Main
Sub Main()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim arg
For Each arg In WScript.Arguments
Dim f
Dim newName
newName = CreateDateString(Now) & "_" & f.Name
End Sub
Function CreateDateString(dt)
CreateDateString = Year(dt) & Right("0" & Month(dt), 2) & Right("0" & Day(dt), 2)
End Function
10
