Çalıştığı klasördeki bir klasöre yedek almak

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Yedekle()
    Set ds = CreateObject("Scripting.FileSystemObject")
    ThisWorkbook.Save
        If ds.FolderExists("YEDEKLER") = False Then
            ds.CreateFolder "YEDEKLER"
        End If
        If ThisWorkbook.Path = "YEDEKLER" Then Exit Sub
            yol = "YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name
            ds.CopyFile ThisWorkbook.FullName, yol
End Sub

Bu makro ile dosyanın çalıştığı klasördeki YEDEKLER klasörüne, adına o anı da ekleyerek yedeklemesini istiyorum. Sanırım bir yerde hata var ya da benim dikkatimden kaçan bir yer var. Yardımcı olursanız sevinirim.
Saygılarımla

 

[halit3]

Kod:

Sub Yedekle()
Set fL = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
yer = ThisWorkbook.Path & "\YEDEKLER"

If fL.FolderExists(yer) = False Then
MkDir yer
End If

Dosya = ThisWorkbook.FullName
dosya_adi = fL.GetBaseName(Dosya)
uzanti = "." & fL.GetExtensionName(Dosya)
yol = yer & "\" & dosya_adi & Format(Now, "dd.mm.yyyy hh_nn_ss") & uzanti

MsgBox ThisWorkbook.FullName & Chr(10) & yol
fL.CopyFile ThisWorkbook.FullName, yol
End Sub

 

[Tevfik_Kursun]

Teşekkür ederim Halit3 hocam,
Saygılarımla

 

[Tevfik_Kursun]

Muhterem Halit3 Hocam,
Eğer YEDEKLER klasörü yoksa, (tam olmasını istediğim gibi) bu klasörü de oluşturuyor. Oluşturulan bu klasörü görünmez, gizli ve salt okunur da yapabilir miyiz?
Saygılarımla

 

[ekoert]

Makrosuz isterseniz:

Farklı kaydet yapıp,

Diğer biçimler-->Araçlar-->Genel Seçenekler-->Her zaman yedekle

Aynı klasör içerisine xlk uzantılı excel dosyası yedekliyor, isterseniz bu klasörü gizli de yapabilirsiniz.

 

[kadirdiloglu]

Peki farklı bir yere kopya oluşturmak istediğimizde ne yapmalıyız örneğin masaüstünde bir yedek almak istesek

 

[Tevfik_Kursun]

Merhaba Arkadaş,
2. mesajda yer= diye başlayan satırı istediğin gibi tanımla
Kolay gelsin