[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"