Dosya adına sistem tarihini ekleyerek dosya adını değiştirme

Merhaba
Belli bir klasöreki “ C:\XX\okuma.txt “ adı dosyanın adını
sistem tarihi ilave ederek değiştirmek istiyorum örnek olarak bugün için
"C:\XX\okuma15-01-2012.txt “ nasıl yapabilirim
Yardımlarınız için tekekkür ederim
Saygıarımla

Bu şekilde hal ettim
daha öncede sormuşum
Name "C:\XX\okuma.txt" As "C:\XX\ " & Format(Date, "ddmmyyyy") & "okuma.txt"

herkese iyi çalışmalar

bir öneri olarak formatı yyyyaagg şeklinde yazdırın alfabetik sıralamada kolaylık sağlar.

iyi akşamlar arkadaşlar
bu isim yazdırmanın tam vb kodunu yazabilir misiniz acaba??

Name "C:\EskiDosya.txt" As "C:\" & Format(Date, "ddmmyyyy") & "YeniDosya.txt"