Kod:
Private Sub Form_Unload(Cancel As Integer)
OtoYedek
End Sub
Function OtoYedek()
On Error GoTo hatalar
Dim gonder
Set gonder = CreateObject("Scripting.FileSystemObject")
If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then
MkDir Application.CurrentProject.Path & "\yedek"
End If
gonder.CopyFile CurrentProject.FullName, Application.CurrentProject.Path & "\yedek\" & Format(Now(), "dd/mm/yyyy mmmm dddd hh nn ss") & ".mdb"
Set gonder = Nothing
Exit_hatalar:
Exit Function
hatalar:
MsgBox Err.Description, vbExclamation, "A-Yapı"
Resume Exit_hatalar
End Function
selam
zararın neresinden dönülürse kardır derler geçmişe değilde geleceğe bakmak için
alttaki yeekleme kodlarını bir forma ekleyin yada örnek uygulamayı inceleyin
saygılarımla
sayın aydın,
ağ üzerindeki bir dosyayı nasıl otomatik yedekleriz?
dosyayı sıkıştırarak mail atabilir miyiz?
teşekkürler..
(20/02/2015, 21:59)karaayhan yazdı: sayın aydın,
ağ üzerindeki bir dosyayı nasıl otomatik yedekleriz?
dosyayı sıkıştırarak mail atabilir miyiz?
teşekkürler..
aşağıdaki kod ile yedekleme yapabilirsiniz
1.winrar yöntemi ile yedek alır.
2.yedek dosyasına bir isim verir.
3.parametrelerdeki avi mpg mp3 gibi dosyaları yedeklemez.
4.SQL gibi kullanımda olan dosyaları da yedekler.
5.Alt klasörleride yedekler.
6.Her Gün için ayrı yedek alır. Örneğin : Pazartesi için BelgePzt.rar Salı için BelgeSal.rar vs.
7.Log Dosyasına alamadığı yedeklerin kaydını tutar.
8.Sıkıştırılan dosyanın RAR boyutunu 720mb ile sınırlar büyük ise böler. BelgeSal.rar BelgeSal.ra1 gibi.
Kod:
x = Shell("C:\Program Files\WinRAR\winrar.exe" & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " & Me.SaklanacakYer & "\" & Me.YedekAdi & Format(Date, "ddd") & " " & Me.YedekYeri & "\*.*")
(21/02/2015, 02:05)Yandemir yazdı: (20/02/2015, 21:59)karaayhan yazdı: sayın aydın,
ağ üzerindeki bir dosyayı nasıl otomatik yedekleriz?
dosyayı sıkıştırarak mail atabilir miyiz?
teşekkürler..
aşağıdaki kod ile yedekleme yapabilirsiniz
1.winrar yöntemi ile yedek alır.
2.yedek dosyasına bir isim verir.
3.parametrelerdeki avi mpg mp3 gibi dosyaları yedeklemez.
4.SQL gibi kullanımda olan dosyaları da yedekler.
5.Alt klasörleride yedekler.
6.Her Gün için ayrı yedek alır. Örneğin : Pazartesi için BelgePzt.rar Salı için BelgeSal.rar vs.
7.Log Dosyasına alamadığı yedeklerin kaydını tutar.
8.Sıkıştırılan dosyanın RAR boyutunu 720mb ile sınırlar büyük ise böler. BelgeSal.rar BelgeSal.ra1 gibi.
Kod:
x = Shell("C:\Program Files\WinRAR\winrar.exe" & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " & Me.SaklanacakYer & "\" & Me.YedekAdi & Format(Date, "ddd") & " " & Me.YedekYeri & "\*.*")
sayın yandemir,
eksik olan alan bilgilerini ekleyemedim
x
Me.SaklanacakYer
Me.YedekAdi
Me.YedekYeri
v.s.
bunların basit bir örnek ile taçlandırmak mümkün müdür?
teşekkürler..
istediğimiz dosyayı yani rar ile sıkışan dosyayı mail atmamız harika olurdu!
(21/02/2015, 11:44)karaayhan yazdı: Me.SaklanacakYer
Me.YedekAdi
Me.YedekYeri
Me.SaklanacakYer
Flash diskiniz external diskiniz vs.
örnek [Z:\Yedek]
Me.YedekAdi
Yedeklenen dosyaya bir ön isim verilir
örnek [Murat] oluşan dosya "Z:\Yedek\MuratPaz.RAR" veya "Z:\Yedek\MuratSal.RAR"
Me.YedekYeri
örnek [\\MyPC\Evrak] veya [C:\Belgeler] ağ üzerinde ve ya nerede olursa olsun o klasörü ve altındakileri yedekler.
sayın karaayhan,
konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.
şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.
bilgilendirmek ister misiniz lütfen.teşekkürler.bilginize.
iyi çalışmalar,
saygılar.