DOSYA YEDEKLEME

[nkymk]

MERHABA
AŞAĞIDAKİ KODU KULLANARAK DOSYALARIMI "RAR" FORMATINDA YEDEK ALABİLİYORUM. ANCAK RASTGELE YERE KAYDEDİYOR. BAZEN MASAÜSTÜNE BAZEN DE BELGELERİME. YEDEK DOSYAMI NASIL İSTEDİĞİM KLASÖRE KAYDEDEBİLİRİM?

Sub DENEME()
KLASOR_YOLU = ActiveWorkbook.Path
veriKlasor = KLASOR_YOLU
hedefKlasor = ThisWorkbook.Path
ChDir ThisWorkbook.Path
XlsmDosyaAdi = "YEDEK.XLSM"
ZAMAN = Application.Text(Now(), "dd-mm-yyyy hh-mm")
RarDosyaAdi = "YEDEK.rar"
s = "C:\Program Files\winrar\rar a" & " " & Chr(34) & ZAMAN & " " & RarDosyaAdi & _
Chr(34) & " " & Chr(34) & veriKlasor & Chr(34)
Shell s, vbHide
Set fs = Nothing
End Sub

 

[askm]

5-6 kere denedim ve hepsinde de belgenin olduğu klasöre (Thisworkbook.path) yedek aldı kodlar. Başka bir excel açık ise KLASOR_YOLU = ActiveWorkbook.Path satırından dolayı farklı yere yedek alabilir belki. KLASOR_YOLU = ThisWorkbook.Path olarak deneyin bir.

 

[Haluk]

C:\TestFolder klasörüne yedeklemek için ...

Sub Test()
    SourceFolder = ThisWorkbook.Path
    DestDir = "C:\TestFolder\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub

.

 

[nkymk]

C:\TestFolder klasörüne yedeklemek için ...

Sub Test()
    SourceFolder = ThisWorkbook.Path
    DestDir = "C:\TestFolder\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub

.

öncelikle cevabınız için teşekkür ederim.
ancak C de bu klasörü benim oluşturmam gerekiyor. kendim oluşturmadan yedek almıyor. ayrıca klasör ismini belgelerim olarak değiştirdiğimde ise yine yedek almıyor

 

[Haluk]

Masaütüne yedeklemek için;

Sub Test2()
    Set objShell = CreateObject("WScript.Shell")
    myDesktop = objShell.SpecialFolders("Desktop")
    Set objShell = Nothing
    SourceFolder = ThisWorkbook.Path
    DestDir = myDesktop & "\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub

.

 

[Haluk]

Belgelerim klasörüne yedeklemek için;

Sub Test3()
    Set objShell = CreateObject("WScript.Shell")
    myDocuments = objShell.SpecialFolders("MyDocuments")
    Set objShell = Nothing
    SourceFolder = ThisWorkbook.Path
    DestDir = myDocuments & "\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub

.

 

[nkymk]

Belgelerim klasörüne yedeklemek için;

Sub Test3()
    Set objShell = CreateObject("WScript.Shell")
    myDocuments = objShell.SpecialFolders("MyDocuments")
    Set objShell = Nothing
    SourceFolder = ThisWorkbook.Path
    DestDir = myDocuments & "\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub

.

teşekkür ederim. gayet başarılı. sorunsuz çalışıyor
saygılar