Adding datestamp to a file in this vbscript

Status
Not open for further replies.

COKE CAN

Limp Gawd
Joined
Nov 12, 2006
Messages
391
Here is the script:

Code:
' 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.
 
Status
Not open for further replies.
Top