Sn üstadlarim kolay gelsin.
Aşağıdaki kod ile bir dosyayı istedigim klasöre farklı bir adla kayıt yapıyorum.
Benim şuan yapmaya çalıştığım ise, Yedekle tablosunda dosya yolu ve adı yazılı 2 tane dosyam var. Bu dosyaları butona tıklamak suretiyle ikisinide tarih ve saati başına ekleyerek istediğim klasöre kaydetmesi.
Aşağıdaki koda nasıl bir ekleme yaparak bu işlemi tek tıklamayla çözebilirim.
Yardım ve önerileriniz için şimdiden teşekkürler.

Dim fso As Object
Dim kaynakDosya As String
Dim HedefDosya As String
Set fso = CreateObject("Scripting.FileSystemObject")
kaynakDosya = KaynakDosyaAdresiveAdi
HedefDosya = hedefKlasor & "\"  & yeniad & ".png"
fso.MoveFile kaynakDosya, HedefDosya
Set fso = Nothing