Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to take backup a Database from my VB Application
- Thread starter tskbalaji
- Start date
U have to use FileScriptingObject for bakuping your database
Set fso = CreateObject("Scripting.FileSystemObject"
fso.CopyFile "c:\mydatabase.mdb", "c:\backup\mydatabase.mdb", True
True is for overwrite ________
George
Set fso = CreateObject("Scripting.FileSystemObject"
fso.CopyFile "c:\mydatabase.mdb", "c:\backup\mydatabase.mdb", True
True is for overwrite ________
George
you could do it in your app terminate routine by having something like "copyfile <yourdatabase> backuppath & "Backup.mdb"
ie
assuming your database is in the app directiry, and you want to save it to a backup directory on the "c:" drive
if len(trim(dir("C:\backup.mdb)) > 0 then kill "C:\backup.mdb" 'there are several ways of checking for an existing file - this is just one
copyfile app.path & data.mdb "C:\backup" & data.mdb
(I think it's copyfile, it may be filecopy)
ie
assuming your database is in the app directiry, and you want to save it to a backup directory on the "c:" drive
if len(trim(dir("C:\backup.mdb)) > 0 then kill "C:\backup.mdb" 'there are several ways of checking for an existing file - this is just one
copyfile app.path & data.mdb "C:\backup" & data.mdb
(I think it's copyfile, it may be filecopy)
- Status
