VBA: Format Now() to yyyymmddHhNnSs

[goldfish]

I got the formatting that I want down which is "yyyymmddHhNnSs", but I haven't be able to figure out which VBA function to use to change Now() from

7/26/2007 12:45:26 PM

to

20070726124526

Like I want it.


Further more I would like to Write code do do the following

Sub ArchiveFile()
If [File Test.zip already exists] Then
[Move Test.zip to Test.20070726124526.zip]
End If
End Sub

Thanks,
~Gold Fish

 

[Jonmo1]

x = format(now,"yyyymmddhhnnss")

 

[Norie]

Your title is almost the exact code you need.

Msgbox Format(Now(),"yyyymmddHhNnSs")

 

[goldfish]

Bah, Format! Duh, no wonder it didn't come up in my help search for "Date".

Thanks!

Part 2 anyone?

Sub ArchiveFile() 
If [File Test.zip already exists] Then 
[Move Test.zip to Test.20070726124526.zip] 
End If 
End Sub

Where 20070726124526 is the date modified of Test.zip?

Thanks,
~Gold Fish

 

[Norie]

Well we would probably also need the path for that one.

If Dir("C:\File Test.Zip")<>"" Then
      Name "C:\File Test.Zip" As "C:\Test." &  Format(Now(),"yyyymmddHhNnSs") & ".Zip"
End If

 

[goldfish]

Throw in a little "FileDateTime" and I have myself some code!

Thanks Jonmo1 and Norie!

~Gold Fish