errata corrige...
ovviamente l'IF è tale e non IF NOT

sorry!
il resto funge bene!
ciao

Originariamente inviato da giano118
puoi utilizzare l'oggetto fso,
controlli che il file esista e lo sposti rinominandolo a tuo piacimento...nel tuo caso assegnandogli la data!!!!
codice:
     If Not fso.FileExists("file.txt") Then
        Data = Format(Date, "yyyymmdd")
        Path = "C:\Files\file" & Data & ".txt"
        fso.CopyFile "C:\Files\file.txt", Path
     End If
questo è un esempio pratico ed esplicativo!

spero di esserti stato utile.
ciao Giano