codice:
Dim OGGI, DATA as Date
OGGI = Date
DATA = Cdate("22/01/2005") ' x esempio
Date = DATA
... Codice Creazione File.. 
DATE = OGGI 'RIPRISTINO DATA CORRENNTE!!
Spero ti sia utile, ciao.