Adding datestamp to a file in this vbscript

[COKE CAN]

Here is the script:

' move delivered files to pending folder
Set colFiles = objFolder.Files
For Each objFile in colFiles
	Wscript.Echo ".. delivery .. " & objFile.Name
	objFile.Move (strSource & "\PENDING\" & objFile.Name)

	'check for error
	If Err.Number <> 0 Then
		fnDisplayError
	End If
Next

Set objFolder = nothing

When I move these files I want to add a datestamp to the end of the name of the file. Any assistance would be greatly appreciated.

 

[COKE CAN]

This is now resolved.