Herkese merhaba;
Arkadaşlar hazırladığım programın hemen bitip örnekler bölümüne göndereceğimi düşünürken işin içinden çıkamadığım bir hal aldı.
ŞİFRE:0
Programın amacı : ağ üzerindeki bir bilgisayarda kurum ile ilgili bilgisayar dosyalarını (word, excel, resim, liste, v.b.) salt okunur olarak arşivlemek. program eğer klasör yok ise otomatik açıyor.
1. Problem : frmekle formunda önce kopyalanacak dosyayı seçiyorum ve EKLE butonuna bastığımda eğer aynı adda dosya var ise ikaz verip eski dosyayı yenisi ile değiştirmesi gerekiyor ama aşağıdaki kodda hata veriyor.

 Sub arsivleme()

If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then

 

Dim Trz

Set Trz = CreateObject("Scripting.FileSystemObject")

Trz.CopyFile asıldosya, kopyadosya

 Me.arsivtarihi = Now

 Me.olusturanpersonelid = Forms![frmgiris]![personelid]

 Me.arsivyol = kopyadosya

 SetAttr Me.arsivyol, vbReadOnly

 MsgBox "Dosya arşivlendi."

 

End If

End Sub

2. Problem : Silme işlemini başaramadım. sil tuşlarında hata veriyor.
ilginize ve bilginize şimdiden teşekkür ederim.

Ek Dosyalar

ARSIV.rar(164.71 KB)