How to backup files using VB6 code

[Rich69]

Hi all,

I'd like to run the following partial code by you to verify if the coding is correct. To give you some background information: this code should backup 4 files; connect to a cash register to copy the backup file to, if the first cash register (rg001) is not available then it should try to connect to the second cash register (rg002) and if that cash register is also not available then it should connect to cash register 3 (rg003). If none of the cash registers are available it should connect to a network drive and copy the backup file to the specified location on the network drive. I have created the following partial code to achieve this goal:

'zip the following files: database backup, PLUFILE and PRICENST
LogMessage "TRACE", "Starting zip of backup"
Zipfiles "d:\mssql\backup\GTINRecovery.zip", sBackupfile & _
         " c:\nsb\test\dbase\PLUFILE.idx" & _
         " c:\nsb\test\dbase\PLUFILE.dat" & _
         " c:\nsb\test\dbase\PRICEHST.idx" & _
         " c:\nsb\test\dbase\PRICEHST.dat", 30, "", False, "d:\temp"
LogMessage "TRACE", "copying zip to register"
 
'get credentials to access rg001
GetCredentialsFromXML "SDwjke&**jkFhjdhfg2g", "sHJHcvbb388h^2##@!@",
APP_INI_FILE, "ClientConfig", _
      "User", "Pwd", gsUser, gsPwd
Dim bMapWorked As Boolean
Dim sRegister As String
 
sRegister = Left(sServer, 5) & "rg001"
bMapWorked = modUtility.MapDrive("\\" & sRegister & "\c$", "", sRegister &
"\" & gsUser, gsPwd, False)
If not bMapWorked Then
 
'get credentials to access rg002
GetCredentialsFromXML "SDwjke&**jkFhjdhfg2g", "sHJHcvbb388h^2##@!@",
APP_INI_FILE, "ClientConfig", _
      "User", "Pwd", gsUser, gsPwd
Dim bMapWorked As Boolean
Dim sRegister As String
 
sRegister = Left(sServer, 5) & "rg002"
bMapWorked = modUtility.MapDrive("\\" & sRegister & "\c$", "", sRegister &
"\" & gsUser, gsPwd, False)   
ElseIf not bMapWorked Then
 
'get credentials to access rg003
GetCredentialsFromXML "SDwjke&**jkFhjdhfg2g", "sHJHcvbb388h^2##@!@",
APP_INI_FILE, "ClientConfig", _
      "User", "Pwd", gsUser, gsPwd
Dim bMapWorked As Boolean
Dim sRegister As String
 
sRegister = Left(sServer, 5) & "rg003"
bMapWorked = modUtility.MapDrive("\\" & sRegister & "\c$", "", sRegister &
"\" & gsUser, gsPwd, False)
ElseIf not bMapWorked Then
      Err.Raise 1, , "Cannot map drive to register for copy of DB backup"
End If
 
'copy the zip file to register 1
      objFSO.CopyFile "d:\mssql\backup\GTINRecovery.zip", "\\" & Left(sServer, 5) &
"rg001" & "\c$\recovery\GTINRecovery.zip", True
If not objFSO.CopyFile Then
'copy the zip file to register 2
      objFSO.CopyFile "d:\mssql\backup\GTINRecovery.zip", "\\" & Left(sServer, 5) &
"rg002" & "\c$\recovery\GTINRecovery.zip", True
ElseIf not objFSO.CopyFile Then  
'copy the zip file to register 3
      objFSO.CopyFile "d:\mssql\backup\GTINRecovery.zip", "\\" & Left(sServer, 5) &
"rg003" & "\c$\recovery\GTINRecovery.zip", True 
ElseIf not objFSO.CopyFile Then
'copy the zip file to a mapped network drive
      objFSO.CopyFile "d:\mssql\backup\GTINRecovery.zip", "\\test-server-01\Recovery"
ElseIf not objFSO.CopyFile Then
      Err.Raise 1, , "Unable to copy db backup to register or network drive"
End If

If you have any ideas on whether this will work or whether this code can be improved please let me know.

Thanks very much in advance,

Richard

[eranfox]

Hello Rich69,
why cant you use simple code to copy files?

Dim SourceFile, DestinationFile
 
On Error GoTo FileCopyFailed
    
    SourceFile = "c:\MyTestFile.txt"   ' Define source file name.
    DestinationFile = "c:\MyNewTestFile.txt"   ' Define target file name.
    FileCopy SourceFile, DestinationFile   ' Copy source to target.
    Exit Sub
 
FileCopyFailed:
    MsgBox Err.Number & " " & Err.Description & " " & Err.Source
    Err.Clear
    Resume Next

ERAN

[Rich69]

Hi Eran,

Most of the code is part of a conversion script, so that's why I left most of it intact and added some ElseIf statements to ensure the copy process of the backups succeed if one of the registers is offline to either the next register or a network drive..

The rest of the conversion script stops all running jobs on a SQL server before making a backup copy of various databases. Once that is done; it will run SQL-scripts to convert various fields on various tables from 12-digits to 14 digits and once all that's complete re-enable jobs again...that's what it comes down to in a nutshell

[umilmi81]

You're backing up SQL Data files? You may want to research a backup option with SQL Server itself.

This may be beyond the scope of what you're looking for. But I'll say it anyway

Convert the program from using local SQL Servers, to a centralized server. Add a field to indicate which register is responsible for the record. Then utilize SQL Server's backup features.

This will probably seem like a big task. But should yeild you much stronger results for backing up the data. SQL Server has some pretty nifty features regarding data backup. You can automatically backup on whatever time scale you want, and restore data to a specific minute of the database's time.