Vista - How do I replace all characters in the "Now" date?

I'm trying to rename a file using all of the characters (including the
time) from the "Now" command, but I'm stuck.

This is very close (but it doesn't include the time, only the date):

Set objFSO = CreateObject("Scripting.FileSystemObject")
N=Now
strFNA = Right(Year(N),4) & "." & Right(100+Month(N),2) & "." &
Right(100+Day(N),2)
objFSO.MoveFile "testfile.txt", strFNA & ".txt"

All I want the filename to be is numeric digits and the extension.

Suggestions?

Thanks,
Ed

Ed wrote on 28 okt 2008 in microsoft.public.scripting.vbscript:
strDateFile = year(N) & T(month(N),2) & T(day(N),2) &_
T(hour(N),2) & T(minute(N),2) & ".txt"

function T(s,n)
T = right("000"&s,n)
end function

not tested

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

"Ed" <edflecko@xxxxxx> wrote in message
news:e2b6efe7-ebd9-4918-8d37-59ea07b3980d@xxxxxxYou could use a regular expression to extract the digits, e.g. like so:

Set oRegEx = CreateObject("VBScript.RegExp")
oRegEx.Global = True
oRegEx.Pattern = "[^0-9]"
WScript.echo oRegEx.Replace(Now(), "")

In microsoft.public.scripting.vbscript message <Xns9B45B6D3047C2eejj99@xxxxxx
94.109.133.242>, Tue, 28 Oct 2008 16:58:26, Evertjan. <exjxw.hannivoort@
interxnl.net> posted:"0"&s or 100+s should do; not tested for this article.

N = Now
strDateFile = (year(N)*1e10 + month(N)*1e8 + day(N)*1e6 + _
hour(N)*1e4 + minute(N)*1e2 + second(N)) & ".txt"

document.write strDateFile ' Tested

--
(c) John Stockton, nr London, UK. ?@merlyn.demon.co.uk Turnpike v6.05.
Web <URL:http://www.merlyn.demon.co.uk/> - w. FAQish topics, links, acronyms
PAS EXE etc : <URL:http://www.merlyn.demon.co.uk/programs/> - see 00index.htm
Dates - miscdate.htm moredate.htm vb-dates.htm pas-time.htm critdate.htm etc.