Time Date Renamer VBS

Yurmasyurda

Hello,

Can you help?

I'm looking for a small vb script that can copy a file eg. file.txt and rename it to the current date and time, time should include seconds so it should look like this then 20122002103023

I'm not a programmer but usually can modify many scripts to do what I wish, unfortunately this is giving me a headache. Any help appreciated.

Yurma

The Corinthian

Like this?

Function setFilename()
	Dim sFileneame

	sFileneame = Day(Now())
	sFileneame = sFileneame & setSize(Month(Now()))
	sFileneame = sFileneame & setSize(Hour(Now()))
	sFileneame = sFileneame & Year(Now())
	sFileneame = sFileneame & setSize(Hour(Now()))
	sFileneame = sFileneame & setSize(Minute(Now()))
	sFileneame = sFileneame & setSize(Second(Now()))

	setFilename = sFileneame
End Function

Function setSize(iNumber)
	If Len(iNumber) = 1 Then
		setSize = "0" & iNumber
	Else
		setSize = iNumber
	End If
End Function

MsgBox setFilename

I would do that in Year, Month, Day, Hour, Minute, Second order, btw.

Yurmasyurda

Something similar, it's kind of working now but I have a headache so resting

Thanks