[navigator19]

Не совсем, так получается 13.3.2011_0.49.49_Form.dat а нужно 13.03.2011_00.49.49_Form.dat двойные цифры где число меньше 10!

[OSArev]

Не совсем, так получается 13.3.2011_0.49.49_Form.dat а нужно 13.03.2011_00.49.49_Form.dat двойные цифры где число меньше 10! »

А, так..?

Код:

strDateTime=Right("00" & DatePart("d",Date),2) & "." & _ 
Right("00" & DatePart("m",Date),2) & "." & _ 
DatePart("yyyy",Date) & "_" & _
Right("00" & DatePart("h",Time),2) & "." & _ 
Right("00" & DatePart("n",Time),2) & "." & _
Right("00" & DatePart("s",Time),2) 
' Временные значения можно переставлять, как хочешь.
'---------------------------------------------------------------------------
    Set FSO = CreateObject("Scripting.FileSystemObject")  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Form.dat",         "D:\Backup\" &strDateTime&"_Form.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\history2.dat",     "D:\Backup\" &strDateTime&"_history2.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Session.ini",      "D:\Backup\" &strDateTime&"_Session.ini"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\LastSession.ini",  "D:\Backup\" &strDateTime&"_LastSession.ini"

[navigator19]

Во, это то самое! Всем большое спасибо!

[SendMessage]

OSArev, совсем ни к чему было переделывать с использованием DatePart и два нуля здесь тоже не нужны - одного достаточно.

Код:

DT = Now
DateVal = Right("0" & Day(DT), 2) & "." & _
          Right("0" & Month(DT), 2) & "." & _
          Year(DT) & "_" & _         
          Right("0" & Hour(DT), 2) & "." & _
          Right("0" & Minute(DT), 2) & "." & _
          Right("0" & Second(DT), 2

[OSArev]

SendMessage, извини, был не внимателен, navigator19 - запутал, то ему то, то ему это, нет, чтобы самому подумать. Да, конечно, твоё решение, тоже правильно.
А на счёт DatePart - так это он просто под руку попался, но ведь тоже работает?
И за один ноль, спасибо.