AccessTr.neT
Yedeklediğim Access İ Winrar Olarak Yedeklesin - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yedeklediğim Access İ Winrar Olarak Yedeklesin (/konu-yedekledigim-access-i-winrar-olarak-yedeklesin.html)

Sayfalar: 1 2 3

RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - atoykan - 29/05/2024

Winrar ile yedekleme için kodunuzu aşağıdaki gibi revize edin
Private Sub Komut0_Click()

Dim Yer As String, KlasorVarmi As String, WinRARPath As String,  ShellStr As String

KlasorVarmi = "D:\Test-1"

If Len(Dir(KlasorVarmi, vbDirectory)) = 0 Then MkDir (KlasorVarmi)

Yer = "D:\Test-1\Sakarya\ÇALIŞMA"

If Len(Dir(Yer, vbDirectory)) = 0 Then MkDir (Yer)

    

Dim SourceFile As String, TargetFile As String

SourceFile = "D:\Test-2\Deneme.accdb"

TargetFile = Yer & "\Deneme.accdb"

    	FileCopy SourceFile, TargetFile



    	WinRARPath = """C:\Program Files\WinRAR\WinRAR.exe"""

   	ShellStr = WinRARPath & " a -r " & Yer & "\Deneme.rar " & TargetFile

    	Shell "cmd /c " & ShellStr, vbHide

End Sub


RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 30/05/2024

(29/05/2024, 10:12)atoykan yazdı: Winrar ile yedekleme için kodunuzu aşağıdaki gibi revize edin
Private Sub Komut0_Click()

Dim Yer As String, KlasorVarmi As String, WinRARPath As String,  ShellStr As String

KlasorVarmi = "D:\Test-1"

If Len(Dir(KlasorVarmi, vbDirectory)) = 0 Then MkDir (KlasorVarmi)

Yer = "D:\Test-1\Sakarya\ÇALIŞMA"

If Len(Dir(Yer, vbDirectory)) = 0 Then MkDir (Yer)

    

Dim SourceFile As String, TargetFile As String

SourceFile = "D:\Test-2\Deneme.accdb"

TargetFile = Yer & "\Deneme.accdb"

    FileCopy SourceFile, TargetFile



    WinRARPath = """C:\Program Files\WinRAR\WinRAR.exe"""

   ShellStr = WinRARPath & " a -r " & Yer & "\Deneme.rar " & TargetFile

    Shell "cmd /c " & ShellStr, vbHide

End Sub
teşekkür ederim hocam konu kapanmıştır.