Dosya yedekleme

[ilhanalp]

Merhaba,
Sağdan soldan aparttığım kodlarla kendime göre bir yedekleme programı yapmaya çalıştım. Hani derlerya tilkiyi yüzdüm kuyruğuna getirdim. Fakat sonunda takılıp kaldım.
İlgilenecek arkadaşlara şimdiden teşekkürler.
Not: NAsıl anlatacağımı bilemediğim için dosyayı gönderiyorum.

 

[melek]

Dosyanızı İstediğiniz Klasöre Yedekleyin

Kod:
Sub Yedek()
'/_
D_ismi= ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "D:\programınızı koyacağınız klasör adı\ " & D_ismi
ActiveWorkbook.Save
End Sub

bunu daha önce bulmuştum.

 

[ilhanalp]

Sayın melek,
Benim yaptığım programda yedeklenecek olan dosya "aktiv" halde değil. Sadece ismini seçip yedekleme yapılması gerekiyor.
selamlar

 

[bedersu]

Merhaba,

Kaydet button'una aşağıdaki kodları yazın:

Private Sub yedeklebakalım_Click()

Set ds = CreateObject("Scripting.FileSystemObject")
Dosya = ds.GetFileName(TextBox3.Value)

kyds = TextBox3.Value
hdf = TextBox1.Value & "\" & Dosya
FileCopy kyds, hdf

End Sub

Kolay gelsin

 

[ilhanalp]

Sayın bedersu,
Kodlarınız programı çalıştırdı. Çok teşekkür ediyorum.
Zannedersem SET kavramını iyi hazmetmem gerek.
Selam ve saygılarımla

 

[bedersu]

Sayın ilhanalp,
Set deyiminden ziyade,bu konuda FileSystemObject konusu öğrenilmeli.Bu konuda da acizane bir çalışmam var.Siteye gönderdiğimde okursunuz.Kolay gelsin.

 

[arslan]

slm Arkadaşlar bu proğramla başka programlar yedekleniyor ama kendisini yedeklemek isteyince sonuç alamıyorum