Winrarlı yedek alma

[arslanbey]

Private Sub CommandButton12_Click()
Dim strDate1 As String, Yol1 As String, FileNameZip1 As String

    Call Zip_ActiveWorkbook
    strDate1 = Format(Now, "dd/mm/yyyy hh:mm")
    
    FileNameZip1 = "C:\excel web\Yedek" & "\" & Left(ActiveWorkbook.Name, _
    Len(ActiveWorkbook.Name) - 4) & ".zip"


    Yol1 = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, _
    Len(ActiveWorkbook.Name) - 4) & " " & ".xls"

    dosya = Dir("C:\excel web\Temp\*.*")
    
    If dosya <> "" Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        Kontrol = Dir("C:\excel web\Yedek\" & dosya)
        If Kontrol <> "" Then
            Kill ("C:\excel web\Yedek\" & dosya)
        End If
        fs.movefile "C:\excel web\Temp\*.Zip", "C:\excel web\Yedek"

        MsgBox " [ " & Yol1 & " ]   " & strDate1 & "    Tarihinde Winzip İle Aşağıdaki Gibi Yedeklendi.!! " & vbCrLf & " [ " & FileNameZip1 & " ]", vbOKOnly, "excel web"
    Else
        MsgBox "[ " & ActiveWorkbook.Name & " ]" & " Winzip İle Yedeklenmedi..!!", vbCritical, "excel web"
    End If

End Sub

bu kodlarla nasıl winrarlı yedek alabilirim excel programını c bölümüne winrarlı bir şekilde tarihli yedek almak istiyorum ama yapamadım ugraşlarıma rağmen.

 

[Zeki Gürsoy]

Merhaba,

Kod eksik görünüyor. Aşağıdaki linki inceleyin.

Aktif dosya yedekleme ve WinRAR ile sıkıştırma

 

[arslanbey]

Zeki hocam dosyayı indiremiyorum ayrıca belirtdiğiniz link excel dosyasını winrarlı yedek almakmı.

 

[Zeki Gürsoy]

Zeki hocam dosyayı indiremiyorum ayrıca belirtdiğiniz link excel dosyasını winrarlı yedek almakmı.

Evet, Winrar ile çalıştığınız dosyayı yedekleme üzerine.

Ekteki "Rar.rar" dosyasını çıkarıp Sytem32 içine atarak aşağıdaki kodu deneyin.

Sub yedekle()
yol = ThisWorkbook.Path & "\"
ad = yol & "yedek_" & Replace(Now, ":", "_")

ThisWorkbook.SaveCopyAs ad & ".xls"

Call Sıkıştır
End Sub

Private Sub Sıkıştır()
[COLOR=DarkGreen]'M komutu ile arşivlendikten sonra kaynak dosya silinir.
'-EP anahtarı ile bulunduğu klasör ile birlikte almaz.[/COLOR]
    Shell "rar M -ep """ & ad & ".rar"" " & """" & ad & ".xls"""
    
End Sub

 

[arslanbey]

Hocam dediğiniz gibi Sytem32 attım fakat winrarlı şekilde yedeklemedi bir örnek verebilirmisiniz rica etsem hocam lütfen.

 

[Zeki Gürsoy]

Dosya ekte.

 

[arslanbey]

Hocam benim istediğim bu şekilde değil winrarlı şekilde yedeklenecek yani yedeklediğim dosyayı winrar içerisine alacak siteye winrarlı dosya yüklediğimiz gibi winrar arşiv şekilde olacak hocam.

 

[arslanbey]

Dediğim şekilde yapılması mümkünmü hocam excel dosyası winrarın içinde olacak.

 

[arslanbey]

Konu güncelliğini koruyor.

 

[Murat OSMA]

Aşağıdaki kodları deneyiniz...

Sub Sıkıstır()
Dim Sıkıstırılacak$, Rarla$, WinRar$, Yap&
Sıkıstırılacak = "D:\emre.xls"
Rarla = "D:\emre_" & Format(Date, "dd.mm.yyyy") & ".rar"
WinRar = "C:\Program Files\WinRAR\WinRAR.exe  a "
Yap = Shell(WinRar & " " & Rarla & " " & Sıkıstırılacak, vbHide)
End Sub

 

[mancubus]

winrar:
http://www.ozgrid.com/forum/showthread.php?t=27764&highlight=winrar

7-zip ve winzip
http://www.rondebruin.nl/tips.htm