Backup i arhiviranje u winrar

[ Srbin do jaja @ 06.10.2010. 16:56 ] @

imam kod za backup baze (baza mi nije podeljena) koji mi radi super.

Code:
Private Sub Command0_Click()

Dim bckup As FileSystemObject
On Error GoTo Unsuccessful

Dim strBckupName As String
strBckupName = "primer1_Backup " & Format(Date, "mm.dd.yyyy") & " - " & Format(Time, "hhmmss") & ".accdb"

Set bckup = New FileSystemObject
bckup.CopyFile Application.CurrentProject.FullName, Application.CurrentProject.Path & "\Downloads\" & strBckupName, True
Set bckup = Nothing

Beep
MsgBox "Backup was successful and saved @ " & Chr(13) & Chr(13) & Application.CurrentProject.Path & Chr(13) & Chr(13) & "The backup file name is " & Chr(13) & Chr(13) & strBckupName, vbInformation, "Backup Completed"

End
Unsuccessful:
MsgBox "Backup unsuccessful. Check:" & Chr(13) & Chr(13) & "- The disk you are saving to is not full" & Chr(13) & Chr(13) & "AND" & Chr(13) & Chr(13) & "- That a 'backups' folder has been created in the directory of the active database", vbExclamation, "Backup Unsuccessful"
End Sub

hteo bih da razdvojim bazu i da mi uradi backup i kompresuje u rar format a da rar fajl bude ovog formata

Code:
"primer1_Backup " & Format(Date, "mm.dd.yyyy") & " - " & Format(Time, "hhmmss") & ".accdb"

[ Srbin do jaja @ 08.10.2010. 16:51 ] @

Dosao sam do resenje

znaci sledeci kod
kopira postojeci fajl u folder backup, ako on ne postoji onda ga pravi i kopira u njega. potom kopiran fajl raruje pod imenom fajla (bez ekstenzije) datumom i vremenom, i na kraju brise kopirani fajl. sve cisto lepo sredjeno i uvek poredjano. poz

Code:

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

[ NEVSAD @ 08.06.2012. 16:56 ] @

mene compajler vati na

Set fso = New FileSystemObject

da li je problem u referensama ili nešto drugo

unaprijed zahvalan

nevsad