Save to disk

[spud]

Hi again,

Used this code the other day:

On Error GoTo DirCopy_err

Data1.Database.Close
Dim SourceFile, DestinationFile
SourceFile = Label3.Caption ' Define source file name.
DestinationFile = ("A:\contact.mdb") ' Define target file name.
FileCopy SourceFile, DestinationFile ' Copy source to target.
Data1.DatabaseName = Label3.Caption
Data1.Refresh

Is there any way I can save the database to a floppy with the date it was saved and not overwrite the one already on the disk.

Thanks,

Spud

I don't know about Databases. But you could always save the filename as a date.

DestinationFile = ("A:\contact (" & Date & ").mdb") 'Returns A:\contact (8/6/00).mdb

[spud]

Thanks Matthew that should do the trick!

Spud

(Hoping to answer someones post one day)

any relation to Bill - bet you havent heard that before!!


[Edited by spud on 08-07-2000 at 02:20 PM]