DOSYA YEDEKLEME

nkymk

Altın Üye
Katılım
5 Kasım 2010
Mesajlar
9
Beğeniler
1
Excel Vers. ve Dili
2003 türkçe
#1
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

Altın Üye
Altın Üye
Katılım
4 Haziran 2005
Mesajlar
2,490
Beğeniler
59
Excel Vers. ve Dili
2010-2016
#2
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,203
Beğeniler
571
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#3
C:\TestFolder klasörüne yedeklemek için ...

Kod:
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
.
 
Son düzenleme:

nkymk

Altın Üye
Katılım
5 Kasım 2010
Mesajlar
9
Beğeniler
1
Excel Vers. ve Dili
2003 türkçe
#4
C:\TestFolder klasörüne yedeklemek için ...

Kod:
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,203
Beğeniler
571
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#5
Masaütüne yedeklemek için;

Kod:
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,203
Beğeniler
571
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#6
Belgelerim klasörüne yedeklemek için;

Kod:
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
.
 
Son düzenleme:

nkymk

Altın Üye
Katılım
5 Kasım 2010
Mesajlar
9
Beğeniler
1
Excel Vers. ve Dili
2003 türkçe
#7
Belgelerim klasörüne yedeklemek için;

Kod:
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
 
Üst