Predmet:backup podataka splitovane baze

---

nešto ne valja za backup baze:koliko se sjecam trebala bi riješiti backup splitovane accessove baze ali mi ne prolazi nemam ideje

Function BackupDatabase()

Dim strSource As String, strOutput As String, strBackup As String, strDate As String,
Dim strFileName As String, strSource2 As String

With Access.Application
' Get Database File Name and Path
strBackup = .CurrentProject.Path
strSource = .CurrentProject.FullName
strFileName = .CurrentProject.Name


' Create a backup folder in the same directory if one doesn't already exist
strOutput = strBackup & "\Backup\"
If Not Dir(strOutput, vbDirectory) > vbNullString Then MkDir strOutput

' Copy the database from Source to Output
Dim fso As FileSystemObject
Dim db As New Access.Application

Set fso = New FileSystemObject

fso.CopyFile strSource, strOutput

Dim sWinZip As String
Dim sZipFile As String
Dim sZipFileName As String
Dim sFileToZip As String

sWinZip = "C:\Program Files\WinRar\WinRar.exe" 'Location of the WinRar program
sZipFileName = Left(strFileName, InStr(1, strFileName, ".", vbTextCompare) - 1) & _
" " & Format(Date, "dd.mm.yyyy") & " " & Format(Time, "hh.mm.ss") & ".rar"
sZipFile = strOutput & sZipFileName
sZipFile = Chr(34) & sZipFile & Chr(34)
sFileToZip = strOutput & strFileName
sFileToZip = Chr(34) & sFileToZip & Chr(34)

strOutput = Chr(34) & strOutput & Chr(34)

Call Shell(sWinZip & " a -ep " & sZipFile & " " & sFileToZip)
Beep
MsgBox "Backup copy is saved at " & Chr(13) & Chr(13) & strOutput &_
Chr(13) & Chr(13) & "Ôà¼ë ñå çîâå " & Chr(13) & Chr(13) & sZipFileName, vbInformation, "Backup successful!"

Set fso = Nothing

Kill strBackup & "\Backup\" & strFileName

Beep

End With

End Function
***
aplikacija je na c:\data\plata.mdb
baza je na C:\data\plata_be.mdb
za backup bi trebalo biti Plata_be+datum
svaka ideja je dobro došla