Dosyayı Gün ve saatin ismiyle kaydedip yedekleme

[orrhankaya]

C'ye YEDEK isimli bir Klasör aç. YEDEK isimli klasör içine Yedekleyeceğimiz dosyayı at. Dosyanın ismini o anki gün ve saat adıyla (Örneğin 21.11.2006 22:51) olarak kaydet. Klasörde en fazla 10 dosya birikmeli. 11.Dosya kaydedildiğinde İlk kaydolan dosyayı sil.
Amacım;
1.Örneğin 2 gün önceki kayıtlara ihtiyacım olduğunda yani kayıtların bir bölümünü herhangi sebeple silmiş yada değiştirmiş olduğumda bazen eskiyi görmeye ihtiyaç duyuyorum.
2.Kullandığım dosya bozulursa yada sehven silinirse yada istemediğim şekilde değiştirilmişse eskiye ihtiyaç duyabilirim.

 

[Yüksel Varlı]

isim = Range("c6").Value
Fname = Format(Now, "dd_mm_yyyy") & " " & isim & ".xls"
ActiveSheet.Copy
klasor = "ARŞİV"
Set ws = ActiveSheet
Application.DisplayAlerts = False
ac:
Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists("D:\" & klasor) Then
GoTo devam
Else
Fs.CreateFolder ("D:\" & klasor)
GoTo ac
End If
devam:
With ws
.SaveAs "D:\" & klasor & "\" & Fname
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveWorkbook.Close
MsgBox"Arşive Kayıt işleminiz tamamlandı. "

Sayın Orrhankaya,
Bu kodlar C6 hücresindeki değeri dosya adı olarak seçer ve D sürücüsünde, ARŞİV klasörüne kaydeder. Belki kodları değiştirerek kendi istediğiniz hale getirirsiniz diye gönderiyorum.
Sorunun 2. bölümünü çözmek beni aşıyor.
Not: Kodlar forumun malıdır.

 

[orrhankaya]

Teşekkür ederim, Yüksel bey
Kullandım. Aynı gün birden fazla yedekleme yapamıyorum.

Birden fazla yedekleme yapabilmek için Saat ve dakikayı da kullanmamız gerekecek sanırım. Aksi halde aynı gün birden fazla yedekleme yapamayacağız.

 

[Orion1]

Merhaba

Fname = Format(Now, "dd_mm_yyyy") & " " & isim & ".xls"

Yukarıdaki kodu Aşağıdaki kodla değiştirip bir denermisiniz?

Fname = Format(Now, "dd_mm_yyyy") & " " & Format(Now, "hh:mm:ss") & " " & isim & ".xls"

 

[tufan03]

Arkadaşlar ilgili dosyayı her değişiklikte yedekliyecek,yedeği D sürücüsüne atacak dosya ismi değişmiyecek,ilgili sürücüde her dosyanın bir adet yedeği olacak (en son yedekleme ve tarihi görünecek), kodları bu şekilde düzeltmek mümkünmü?

 

[orrhankaya]

Sayın Sezar,
verdiğiniz kodu çalıştıramadım.aşağıdaki satırda hata veriyor.
SaveAs "D:\" & klasor & "\" & Fname

 

[Orion1]

Merhaba.
Dağa önce vermiş olduğum kodun yerine aşağıdaki kodu deneyin.

Fname = Format(Now, "dd_mm_yyyy hh_mm_ss") & " " & isim & ".xls"

 

[orrhankaya]

Teşekkür ederim, Sezar.
Sorun çözüldü.
Sorumun ikinci aşaması için cevap vereceklerin çıkacağını umuyorum.

......... Klasörde en fazla 10 dosya birikmeli. 11.Dosya kaydedildiğinde İlk kaydolan dosyayı sil..........

 

[Orion1]

Merhabalar.
Ekli dosyayı incelermisiniz?
Eğer işinize yararsa Kodları kendinize göre uyarlayıp kullanabilirsiniz.
Dosyaları silme işleminden sonra ilgili klasöre bakıp dosyaların silinip silinmediğini inceleyebilirsiniz.İsterseniz Silindikten sonra kalan dosyalar da Uygun kodlar yazılarak sayfa üzerinde listelenebilir.

 

[orrhankaya]

Teşekkürler Sezar, emeğine sağlık
Eklediğiniz Dosyadaki kodlar tüm ihtiyaçlarımı giderdi. Dosyama sorunsuz uyarladım.

Bu arada; Mesaj kutusundaki cümleyi çok satırlı hale getirmeyi de sayenizde öğrenmiş oldum.

 

[Orion1]

Rica ederim.
İyi çalışmalar.